Convertir segundos a formato hora, minutos y segundos

[jafera]

Buenas de nuevo, vuelvo a ver si alguien me puede echar un cable con este problema:

Necesito pasar el valor de la variable K la cual esta en segundos al formato HH:MM:SS.

 
procedure TF_Calculadora.JvXPButton2Click(Sender: TObject);
var
H,I: Ttime;
Hora, Minuto, Segundo, Msec: Word;
J,K,L: Double;
begin
        H:=StrToTime(MaskEdit2.Text);
        DecodeTime (H, Hora, Minuto, Segundo, Msec);
        J:=(Hora*3600)+(Minuto*60)+Segundo;
        K:=J*StrToFloat(JvValidateEdit2.text)/100;
 
        MaskEdit3.Text:=TimeToStr(I);
        MaskEdit4.Text:=MaskEdit2.Text+MaskEdit3.Text;
end;

Como siempre muchas gracias a todos los que nos ayudais

Josep

[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

[jafera]

Muchas gracias, problema solucionado.

Josep