[Delphi] Многопоточность

  TNewThread = class(TThread)
  private
  protected
    procedure Execute; override;
  public
    constructor Create(CreateSuspended: Boolean);
  end;
 
constructor TNewThread.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
end;
 
 
procedure TNewThread.Execute;
begin
 
end;
 
 
 TNewThread.Create(false);

procedure TForm1.Button1Click(Sender: TObject);
var
p:Integer;
i:word;
begin
try
p:=StrToInt(Edit1.Text);
  hSemaphore:=CreateSemaphore(nil,1,1,nil);
  for i:=0 to p-1 do
  begin
    aIdHTTP[i]:=TIdHttp.Create(Self);
    aThread[i]:=TIThread.Create(aIdHTTP[i], true);
    aThread[i].FreeOnTerminate:=true;
    aThread[i].priority := tplowest;
    aThread[i].Resume;
  end
  except

Thread.Terminate

Thread.Terminated:=true;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  ThreadsCount: Integer;
begin
  while True do
  begin
    case WaitForSingleObject(hSemaphore, 0) of
    WAIT_OBJECT_0:
    begin
      ReleaseSemaphore(hSemaphore, 1, @ThreadsCount);
      if ThreadsCount = MaxThreads - 1 then
        Break;
    end;
    WAIT_TIMEOUT: ;
    end;
  end;
end;

for i:=0 to p-1 do
    begin
      aIThread[i].Terminate;
    end

ReleaseSemaphore(hSemaphore, 1, @ThreadsCount);

var
  CurrentThreadsCount: Integer;
begin
  case WaitForSingleObject(hSemaphore, 0) of
  WAIT_OBJECT_0:
  begin
    ReleaseSemaphore(hSemaphore, 1, @CurrentThreadsCount);
    CurrentThreadsCount := Pred(MaxThreads - CurrentThreadsCount);
  end;
  WAIT_TIMEOUT:
    CurrentThreadsCount := MaxThreads;
  end;
 
  Label1.Caption := Format('Threads =  [%d]', [CurrentThreadsCount]);

aIThread[i].FreeOnTerminate:=true;

procedure TIThread.Execute;
var s:string;
    SListT: TStringList;
begin
  idHttp.HandleRedirects:=True;
  Inc(Cnt);
 
  while ((Form1.mmo1.Lines.Strings[0] <> '') and (form1.mmo1.Lines.Count>0)) and (Form1.CheckBox2.Checked) do
    begin
      WaitForSingleObject(hSemaphore,INFINITE);
      s:=Form1.mmo1.Lines.Strings[0];
      form1.mmo1.Lines.Delete(0);
      ReleaseSemaphore(hSemaphore,1,nil);
      
      s:= StringReplace(s, 'https://', 'http://', [rfReplaceAll, rfIgnoreCase]);
      SListT:=TStringList.Create;
      SListT.Text:=Utf8ToAnsi( idHttp.Get(s+'/?xml=1'));
 
      WaitForSingleObject(hSemaphore,INFINITE);
      Form1.Memo1.Lines.Add(SListT.Text);
      Form1.Memo1.Lines.Add('==================================');
      Form1.MLog.Lines.Insert(0, DateTimeToStr(Now)+' XXXXXXXXXXXXXX XXXXXXXID: '+s);
      Form1.MLog.Lines.Insert(0, DateTimeToStr(Now)+' XXXXXXXXXXXXXXXXXXXXXXXXXX '+inttostr(Length(SListT.Text))+' XXX');
      ReleaseSemaphore(hSemaphore,1,nil);
    end;
  Dec(Cnt);
end;