Frage bezüglich Windows Herunterfahren...Wo ist mein Fehler?

[Forlan]

erstmal danke für eure hilfe, aber mit der function funktioniert es leider nur bedingt...

also wenn ich:

Delphi-Quellcode:

procedure TMain.TiShutdownTimer(Sender: TObject);
begin
   if SysUtils.Time >= DTPUhrzeit.Time then
     begin
       MyExitWindows(EWX_POWEROFF or EWX_FORCE);
     end;
end;

schreibe, fährt der Rechner garnicht runter, und wenn ich:

Delphi-Quellcode:

procedure TMain.TiShutdownTimer(Sender: TObject);
begin
   if now >= DTPUhrzeit.Time then
     begin
       MyExitWindows(EWX_POWEROFF or EWX_FORCE);
     end;
end;

fährt der Rechner sofort runter, egal welche Zeit ich eintrage... was ist denn jetzt noch falsch?