Создание нескольких потоков

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Classes;
 
type
  TMyThread = class(TThread)
    private
    protected
    procedure Execute; override;
end;
 
var
  MyThread: TMyThread;
  ThreadNumber, i: integer;
 
procedure TMyThread.Execute; //опишем код, который будет выполняться в потоке
begin
  Writeln('I am thread number ', i);
end;
 
begin
  write('Enter number of threads = ');
  read(ThreadNumber);
  for i := 1 to ThreadNumber do
  begin
    MyThread := TMyThread.Create(False); //создаём экземпляр потока //False означает, что поток запускается сам сразу после создания
    MyThread.Priority := tpNormal; //укажем параметры потока, например, приоритет
    MyThread.FreeOnTerminate := True;  //после завершения кода поток завершится автоматически
  end;
  Readln;
  Readln;
end.

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Classes;
 
type
  TMyThread = class(TThread)
    private
      fID: Integer; //переменная - свойства
    protected
      procedure SetID(Value: Integer); //присвоение переменной - свойства значения
      function GetID: Integer; //возврат значения из переменной - свойства
      procedure Execute; override;
    public
      property ThreadID: Integer read GetID write SetID; //само свойство
end;
 
var
  MyThread: TMyThread;
  ThreadNumber, i: integer;
 
//присвоение значения в переменную свойства
procedure TMyThread.SetID(Value: Integer);
begin
  fID:=Value;
end;
 
//функция возврата значения свойства из переменной свойства
Function TMyThread.GetID: Integer;
begin
  Result:=fID;
end;
 
procedure TMyThread.Execute; //код выполняемый в потоке, то есть вывод текущего номера потока
begin
  Writeln('I am thread number ', ThreadID);
end;
 
begin
  write('Enter number of threads = ');
  read(ThreadNumber);
  for i := 1 to ThreadNumber do
    begin
      MyThread := TMyThread.Create(False); //создаём экземпляр потока //False означает, что поток запускается сам сразу после создания
      MyThread.Priority := tpNormal; //параметр потока - приоритет
      MyThread.FreeOnTerminate := True;  //автоматическое завершение потока после завершения кода
      MyThread.ThreadID:=i;
      MyThread.Resume;
    end;
  Readln;
  Readln;
end.