Hola,
No sé si esto podría servirte:
Código Delphi
[-]
function SecondsToTime(seconds: Integer) : TTime;
begin
result := (seconds / (24 * 60 * 60));
end;
begin
ShowMessage( TimeToStr( SecondsToTime(60) ) );
end;
Lo encontré
en este hilo de Delphi-PRAXiS y me pareció estupendo. Pero no sé si es lo que necesitas o qué...