[marcoszorrilla]

Un ejemplo:

La parte decimal es la que contiene la hora:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
ni: Double;
d:TTime;
begin
ni:=39000.453216;
d:=Frac(ni);
ShowMessage(FormatDateTime('hh:mm:ss',d));
en

d;

Un Saludo.