Membuat aplikasi shutdown komputer di delphi

uses ShellApi;
 ...
 ShellExecute(Handle, 'open', 'c:\Windows\system32\shutdown.exe', nil, nil, SW_SHOWNORMAL) ;