Ayuda: función HH:MM:SS

[[egostar]]

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