重新启动或关闭计算机?

我写的一个重新启动或者关闭计算机的程序,但是运行后并不执行相应的操作!
不知道哪里有问题?希望高手帮帮忙看下!
谢谢了!!代码如下:procedure TForm2.Button1Click(Sender: TObject);
begin
 case ComboBox1.ItemIndex of
 0 : ExitWindowsEx(EWX_LOGOFF,0) ;
 1 : ExitWindowsEx(EWX_REBOOT OR EWX_POWEROFF, 0) ;
 2 : ExitWindowsEx(EWX_SHUTDOWN OR EWX_POWEROFF,0) ;
 else
     form1.close ;
 end ;
end;