Delphi7xWinXP-Comandos reiniciar e Desligar

Estou elaborando um programa, para fechar conexão internet, reiniciar e(ou) Desligar o computador.
Utilizo o Windows XP.
estou usando os seguintes comandos para reiniciar e desligar o computador:
ExitWindowsEX(EWX_REBOOT,0);//Reiniciar
ExitWindowsEX(EWX_shutdown,0);//Desligar
Entretanto estes comandos não fazem nada(não funcionam) no XP;
Alguém sabe quais os comandos corretos?
Grato desde já.
Paulo