Real in eine Zeitangabe umwandeln

[lbccaleb]

Hallo, ich habe vor einen Real Wert in eine Zeitangabe umzuwandeln.
Ich habe mir dann das "gebastelt":

Delphi-Quellcode:

type
  TPTime = record
    Hours,
    Minutes,
    Seconds: integer;
end;


function RealToTime(RealTime: Real): TPTime;
  begin;
    Result.Seconds := Round(Frac(RealTime) * 60);
    Result.Hours   := Trunc(Int(RealTime) / 60);
    Result.Minutes := Round(Frac(Int(RealTime) / 60) * 60);
  end;

Gibt mir bei "1,568" --> 00:01:34 aus.

Allerdings hab ich zweifel das es die beste Lösung ist, sowas zu machen da es bei mir wirklich immer ganz genau sein muss.
Und denke Profis machen das anders^^

Also wie kann man das noch machen, oder gibt es eine vorgefertigte Funktion für sowas, die ich mal wieder über sehen hab??