Hola, estaba calculando mal
Finalmente puse la function de esta manera y se corrigio el problema
Código Delphi
[-]function TimeToStr(angle:extended):string;
var
d : integer;
m, s : extended;
begin
d:= Trunc(angle);
m:= abs(frac(angle)*60);
s:= Round(abs(frac(m)*60));
Result:= format('%dh %d'' %d"',[d, trunc(m), trunc(s)]);
end;
Muchas gracias