Delphi - Como Apago y Reinicio Windows XP?

La pregunta es simple, Se reiniciar windows 98 pero el codigo para XP no funciona. en vez de reiniciar hace un logon y eso, algunas veces ni lo hace. bueno desde ya le agradezco la cooperación o ayuda que me puedan ofrecer.

Abrazos

ExitWindows (EWX_FORCE + EWX_POWEROFF,0);

ExitWindows (EWX_FORCE + EWX_REBOOT,0);

Para mas info, consulta la ayuda Win32 Programer's reference que viene con Delphi
Saludos...