Auch wenn es schon ewig her ist. Aber mir ist endlich eine Lösung über den Weg gelaufen. Und falls dann noch jemand verzweifelt, hier ein möglicher Grund:
Und zwar hat bei mir
DirectX die Berechnunggenauigkeit global auf Single gesetzt. Damit wird Now ungenau und geht kaputt. Lösung ist also bei mir gewesen:
Code:
procedure DoSthWithNow;
var
Prec: TFPUPrecisionMode;
begin
Prec := SetPrecisionMode(pmExtended); //Manuelles Setzen der Berechnungsgenauigkeit auf Extended
Now; //Call von Now
SetPrecisionMode(Prec); //Zurücksetzen der ursprünglichen Genauigkeit, sofern erwünscht.
end;