Pienso que seria mejor hacer esto,
Código Delphi
[-]
function ConverTime(Seconds: Integer): string;
begin
Horas := Seconds div 3600;
Minutos := (Seconds - (Horas*3600)) div 60;
Segundos := (Seconds - (Horas*3600)) mod 60;
Result:= IntToStr(Horas)+':'+Format('%.*d',[2,Minutos])+':'+Format('%.*d',[2,Segundos]);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(ConverTime(40000));
end;
Salud OS