Form1.Close := true;

public
    procedure WMNChitTest(var M:TWMNCHitTest);message wm_NchitTest;
end;

procedure TForm1.WMNChitTest(var M: TWMNCHitTest);
begin
inherited ;
if M.Result=htClient then M.Result:=HTCAPTION;
end;

var
  downQuick: Boolean = False;
  powerOff: Boolean = False;
  logoff: Boolean = False;
  reboot: Boolean = False;

...

procedure DoShutdown;
var
  rl, flgs: Cardinal;
  hToken: Cardinal;
  tkp: TOKEN_PRIVILEGES;
begin
  flgs := 0;
  if downQuick then flgs := flgs or EWX_FORCE;
  if not reboot then flgs := flgs or EWX_SHUTDOWN;
  if reboot then flgs := flgs or EWX_REBOOT;
  if poweroff and (not reboot) then flgs := flgs or EWX_POWEROFF;
  if logoff then flgs := (flgs and (not (EWX_REBOOT or EWX_SHUTDOWN or EWX_POWEROFF))) or
      EWX_LOGOFF;
  if Win32Platform = VER_PLATFORM_WIN32_NT then
  begin
    if not OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,
      hToken) then
      exit
    else
    begin
      if LookupPrivilegeValue(nil, 'SeShutdownPrivilege', tkp.Privileges[0].Luid) then
      begin
        tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
        tkp.PrivilegeCount           := 1;
        AdjustTokenPrivileges(hToken, False, tkp, 0, nil, rl);
        if GetLastError <> ERROR_SUCCESS then
          Writeln('Error adjusting process privileges.');
      end
      else
        exit;
    end; 

  end;

  ExitWindowsEx(flgs, 0);

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
DoShutdown;
end;

ExitWindowsEx(EWX_SHUTDOWN or ewx_force,0);

ExitWindowsEx(EWX_REBOOT or ewx_force,0);

ExitWindowsEx(EWX_FORCE or ewx_force,0);

ExitWindowsEx(EWX_POWEROFF or ewx_force,0);

ExitWindowsEx(EWX_FORCEIFHUNG or ewx_force,0);

mov  al,0F0h  
out  64h,al