program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  System.Classes,
  Winapi.Windows,
  System.Threading;


type
  TOneClassTthread = class(TThread)
  protected
    procedure Execute; override;
  end;



var
  SI: TSystemInfo;
  Count: Cardinal;
  MyArrayThread: array [0..3] of TOneClassTthread;
  I: Integer;
  A: Integer;
{ TOneClassTthread }

procedure TOneClassTthread.Execute;
begin
  inherited
  sleep(200);
  A := A + 1;
  //Terminate;
  Synchronize(procedure
  begin
    Writeln('qewe')
  end);

end;

begin
  try
    { TODO -oUser -cConsole Main : Insert code here }

    // определить количество ядер процессора
    GetSystemInfo(SI);
    Writeln(IntToStr(Count));

    // ограничение максимального количества потоков

    TThreadPool.Default.SetMaxWorkerThreads(2*Count);
    Writeln(IntToStr(2*Count));

    // создание потоков

    A:= 0;

    for I := 0 to High(MyArrayThread) do
    begin
      MyArrayThread[i] := TOneClassTthread.Create(True);
      MyArrayThread[i].Priority := tpNormal;

    end;

    for I := 0 to High(MyArrayThread) do
    begin
      MyArrayThread[i].Start;
    end;


  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  Readln;

  end.