como converter segundos em hora minutos e segundos no delphi

[kichigo]

ola eu preciso urgente fazer um programa que receba um numero inteiro do usuario em segundos e imprimir a quantidade correspondente em horas , minutos e segundos

por exemplo 3700 segundos tem que aparecer 1 hora 1 minuto e 4o segundos e fazer aparecer em um showmessage e usar os comandos inttostr strtoint floattostr strtoafloat e formatfloat porfavor me ajudem ai. Obrigado

[Jhonas]

function SegundosToTime( Segundos : Cardinal ) : String;
var
  Seg, Min, Hora: Cardinal;
begin
  Hora := Segundos div 3600;
  Seg := Segundos mod 3600;
  Min := Seg div 60;
  Seg := Seg mod 60;

  Result := FormatFloat(',00', Hora) + ':' +   
  FormatFloat('00', Min) + ':' +
  FormatFloat('00', Seg);
end;

Exemplo de uso:

ShowMessage( SegundosToTime(87543) );

abraço