Logge af aktuelle Windows-bruger...

Har lavet et program der kan:
# Lukke computeren
# Genstarte computeren
# Logge af den aktuelle bruger (logge af)

Mit problem opstår når jeg vil logge af. I første omgang ser det ud til at virke fint, alle kørende programmer lukker, men når login-dialogen burde komme starter den bare alt igen.
Når jeg atter, via mit program, prøver at logge af, så virker det fint, login-dialogen kommer frem.

En del af min kode:
procedure TForm1.OKButtonClick(Sender: TObject);
begin
  SaveToReg(ComboBox.ItemIndex,'index',2);
  case ComboBox.ItemIndex of
    0: if ExitWindowsEx(EWX_SHUTDOWN,0) then
        Close;
    1: if ExitWindowsEx(EWX_REBOOT,0) then
        Close;
    2: if ExitWindowsEx(EWX_LOGOFF,0) then
        Close;
    3: Close;
  end
end;


//Tror ikke fejlen er her:
procedure SaveToReg(input1:Variant;input2:String;inputtype:Byte=1);
begin
  reg:=TRegistry.Create;
  with reg do  try
    begin
      Rootkey:=HKEY_CURRENT_USER;
      CreateKey('\Software\xShutDown');
      OpenKey('\Software\xShutDown', True);
      case inputtype of
        1: reg.WriteString(input2,input1);
        2: reg.WriteInteger(input2,input1);
        3: reg.WriteBool(input2,input1);
      end;
      reg.CloseKey;
    end;
  finally
    reg.Free;
  end;
end;

-------------------------------------------------

//Ikke en del af min kode, men virker fint:
procedure TForm1.OKButtonClick(Sender: TObject);
begin
  ExitWindowsEx(EWX_LOGOFF,0);
  Close;
end;

Bruger D4 standard under Win98(ikke SE).