Перед разделом var запишите объявление процедуры:
Procedure ExitWindowsDialog (Handle: THandle); stdcall; external ‘shell32.dll’ index 60;
Пример использования:
ExitWindowsDialog (0);
Ссылки в тему:
Диалог «Завершение работы Windows» (способ 1)