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

[arc]

Habe mir jetzt einfach diese Funktion erstellt. Wird am Ende irgendein Bug mit Windows 7 sein, mein Delphi 7 ist ja auch schon in die Jahre gekommen...

Code:

function API_GetCurrentDate:string;
var SystemTime1: TSystemTime;
begin
  GetLocalTime(SystemTime1);
  result:=Format('%.2d.%.2d.%d %.2d:%.2d:%.2d',[SystemTime1.wDay,SystemTime1.wMonth,SystemTime1.wYear,SystemTime1.wHour,SystemTime1.wMinute,SystemTime1.wSecond])
end;

}