Was könnte die Funktion Now: TDateTime; blockieren?

[himitsu]

Delphi-Quellcode:

function API_GetCurrentDate: String;
var SystemTime: TSystemTime;
begin
  GetLocalTime(SystemTime);
  Result := Format('%s (%.10n) vs %.2d.%.2d.%d %.2d:%.2d:%.2d', [
    DateTimeToStr(SystemTimeToDateTime(SystemTime)),
    SystemTimeToDateTime(SystemTime), SystemTime.wDay,
    SystemTime.wMonth, SystemTime.wYear, SystemTime.wHour,
    SystemTime.wMinute, SystemTime.wSecond]);
end;

Was sagt denn diese Funktion?

Mal gucken ob in DateTimeToStr oder SystemTimeToDateTime das Problem liegt.
(auch wenn ich eher auf SystemTimeToDateTime tippe)

Obwohl Beide eigentlich nur "reine" mathematische Berechnungen ausführen und diese sollte unabhängig vom System (Windows) berechenbar sein.