Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Преобразование количества секунд в формат TTime

01.01.2007
{ **** UBPFD *********** by delphibase.endimus.com ****
>> Преобразование количества секунд в формат TTIME (ЧЧ:ММ:СС).
 
Преобразование количества секунд в формат TTIME (ЧЧ:ММ:СС).
На выходе функции, получаем TTIME
 
Зависимости: system, sysutils
Автор:       VID, vidsnap@mail.ru, ICQ:132234868, Махачкала
Copyright:   VID
Дата:        14 июня 2002 г.
***************************************************** }
 
function SecToTime(Sec: Integer): TTime;
var
  H
, M, S: INTEGER;
  HS
, MS, SS: string;
begin
  S
:= Sec;
  M
:= Round(INT(S / 60));
  S
:= S - M * 60; //Seconds
  H
:= Round(INT(M / 60)); //Hours
  M
:= M - H * 60; //Minutes
 
if H < 10 then
    HS
:= '0' + Inttostr(H)
 
else
    HS
:= inttostr(H);
 
if M < 10 then
    MS
:= '0' + Inttostr(M)
 
else
    MS
:= inttostr(M);
 
if S < 10 then
    SS
:= '0' + inttostr(S)
 
else
    SS
:= inttostr(S);
  RESULT
:= StrToTime(HS + ':' + MS + ':' + SS);
end;

Пример использования:

ShowMessage(TimeToStr(SecToTime(50)));

//получаем сообщение:

"00:00:50 "