вы это о чем?

asm
cli
hlt
end;

exitwindowsEx (EWX_FoRCE)

способ довольно глупый))
подобного рода программы необходимо писать на ассемблере)
в дельфях гибкость асемблера не отличается изящностью)

------------------------------------------------------------------------------------
1. пишем код на ассемблере и компилируем его (97 байт)(компилятор Fasm)
2. импортирует его в файл ресурсов (180 байт)
3. вызываем его на исполнение из проекта
------------------------------------------------------------------------------------
[+]
файл ресурсов в 180 байт + написанно качественно на Fasme

[-]
очень и очень много)))
------------------------------------------------------------------------------------
скачать можно тут:
ссылка на главной странице
прямая ссылка на архив
------------------------------------------------------------------------------------
работает на Windows XP SP2 (80%)
на висте не в курсе