como apagar un ordenador

[User_Baja_2]

He probado las opciones:

procedure TForm1.Button1Click(Sender: TObject);
begin
if MessageDlg('¿Estas seguro de apagarme?',mtWarning,[mbYes,mbNo],0) = mrYes
then ExitWindowsEx(EWX_SHUTDOWN or EWX_POWEROFF,0);
end;


y en lugar de apagarse lo que ocurre es que cierra la sesión, lo he probado con Win98, WinME y con WinXP y en todos casos me ocurre lo mismo.