Lo tengo:
Código Delphi
[-]
function SegToFormatHour(Segundos: Integer): String;
var
horas,
minutos: Integer;
begin
horas := Segundos div 3600;
minutos := Segundos div 60 mod 60;
segundos := Segundos mod 60;
Result:= format('%02d:%02d:%02d', [horas, minutos, segundos]);
end;
ejemplo de uso:
Código Delphi
[-]
ShowMessage(SegToFormatHour(7200));
pa la otra busca bien en google hay cientos de soluciones de este tipo
54LU2