[cmm07]

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));
//Equivale a 2 horas.

pa la otra busca bien en google hay cientos de soluciones de este tipo

54LU2