Ayuda: función HH:MM:SS

[MaMu]

Hola, necesito hacer una función que partiendo de una varieble float que contiene el tiempo total en segundos, me devuelva un string formateado en HH:MM:SS;

Código Delphi [-]
function ConvertTime(tiempo:float):string; //devuelve hh:mm:ss como string
 
....
var tiempototal:float;
begin
   tiempototal:=125487770; 
   Label1.Caption:=ConvertTime(tiempototal);
end;

Alguna sugerencia o idea??

Saludos y gracias