Systemzeit setzen Windows 7

[AJ_Oldendorf]

Hallo,
laut diesem Beispiel http://www.delphi-treff.de/tipps/sys...datum-aendern/ sollte ein setzen der Systemzeit unter Windows 7 kein Problem sein. ich habe folgendes auch getestet unter XP und es läuft.
Unter Windows 7 kommt die Meldung: GetLastError 1314, Dem Client fehlt ein Recht.
Ich habe in den lokalen Sicherheitsrichtilinien (->Lokale Richtlinien) von Windows aber beim Zuweisen von Benutzerrechten gesagt, dass Ändern der Systemzeit JEDER kann (habe auch die einzelnen Benutzer separat eingetragen). Geht trotzdem nicht.
Hat noch jemand eine Idee?

Hier zur Sicherheit nochmal der Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
TimeStruct: TSystemTime;
begin
TimeStruct.wYear := 2011;
TimeStruct.wMonth := 10;
TimeStruct.wDay := 13;
TimeStruct.wHour := 12;
TimeStruct.wMinute := 28;
TimeStruct.wSecond := 0;
TimeStruct.wMilliSeconds := 0;
if SetLocalTime(TimeStruct) then
   ShowMessage('Systemzeit wurde erfolgreich geändert!')
else
   RaiselastOSError;
end;

Viele Grüße
Alex