Wie der TE schon bemerkt hat, ist TDoubleHelper.Fraction ein Wert zwischen 1 und 2.
Zitat:
PS: Ich sehe natürlich selbst, daß das Ergebnis laut Sourcecode Result := 1.0 + (F / $0010000000000000);
Frac/Fraction gibt es im Delphi als Integer(Binär) und als Float.