[dec]

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é...