Adpatándolo a tu informe sería algo como esto:
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
nHouble;
begin
nH:=12.7468055555556;
ShowMessage(FormatDateTime('HH:mm:ss',Frac(nH)));
end;
Que conste que a mi devuelve:
17:55:24
Un Saludo.