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

[DeddyH]

Das sehe ich auch so. Da müsste eigentlich ein 2-Zeiler genügen.

Delphi-Quellcode:

function GiveMeTheCurrentTime: TDateTime;
var SysTime: TSystemTime;
begin
  GetLocalTime(SysTime);
  Result := SystemTimeToDateTime(SysTime);
end;