Windows XP beenden

[malo]

Also, ich hab da meine Probleme mit. Hab auch WinXP und bei mir fährt und fährt der einfach nicht runter, obwohl ich alles eingebaut hab... Da kommt auch keine Fehlermeldung, gar nix.

Hier mal etwas von meinem Quelli:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  //time = integer-variable. Im OnCreate des Forms auf 1 gesetzt. 
  time := time + 1;
  if time = 12 then ExitWindowsEx(EWX_SHUTDOWN, 0);
  if time = 2 then Label2.Caption := '9';
  if time = 3 then Label2.Caption := '8';
  if time = 4 then Label2.Caption := '7';
  if time = 5 then Label2.Caption := '6';
  if time = 6 then Label2.Caption := '5';
  if time = 7 then Label2.Caption := '4';
  if time = 8 then Label2.Caption := '3';
  if time = 9 then Label2.Caption := '2';
  if time = 10 then label2.Caption := '1';
  if time = 11 then label2.Caption := '0';
end;

Wie man hier erkennen kann, soll es eine Art "Stoppuhr" werden, die nach ein paar Sekunden den Rechner hinunterfährt. Ich hab auch den ganzen "function Exitwin" kram drinne und alles. Ich kann nun das Programm starten, der Countdown wird wunderbar angezählt und wenn er bei 0 angekommen ist, passiert nichts