За да го исклучиш компјутерот ќе мора да ја користиш командата ShellExecute :) Еве ти за директно исклучување на компјутерот.
Во uses додади го ", ShellAPI "
procedure TForm1.FormCreate(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'shutdown.exe', 'C:\Windows\system32\shutdown.exe'...