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

var
 SL: TStringList;
begin
 Sl:=TStringList.Create;
 if FileExists('myfile.txt') then SL.LoadFromFile('myfile.txt');
 SL.Add('Text');
 SL.SaveToFile('myfile.txt');
 SL.Free;
end;

 
SL.LoadFromFile('myfile.txt');

 
if SL.Strings[nomerstroki]='Text' then...;

if SL.Strings[nomerstroki]='Text' then...;

var
 i:integer
begin
 for i:=0 to Sl.Count-1 do
 if Sl.Strings[i] = 'Text' then ...