Delphi - apagar Windows desde Delphi

Estoy diseñando un programa que entre otras cosas debe apagar el equipo. Pero la funcion que utiliso no lo apaga, solo cierra la seccion cuando mas.
ExitWindowEx().
Si alguien me recomendara otra funcion a usar se lo agradesco.

Si tuvieses instalados los JVCL tendrias un componente que lanza el dialogo de cerrar windows..

Te faltan los parametros.Mira la ayuda
ExitWindowsEx(EWX_SHUTDOWN+EWX_POWEROFF,0);
ExitWindowsEx(EWX_REBOOT,0);
ExitWindowsEx(EWX_FORCE,0);
ExitWindowsEx(EWX_LOGOFF,0);
ExitWindowsEx(EWX_POWEROFF,0);
ExitWindowsEx(EWX_SHUTDOWN,0);
Suerte

ExitWindowsEx(EWX_SHUTDOWN+EWX_POWEROFF,0)
Suerte!