[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);

var wait: dword;
      ...
while(true) do
  begin
    wait:=WaitForSingleObject(hSemaphore,INFINITE); //дает паузу если занято О_о
    if wait = WAIT_OBJECT_0 then //проверяет если паузы нет то продолжаем
    begin
      inc(number);
      flag:=false;
      j:=0;
      while(j<i) do
      begin
        if Round(number/list[j])=number/list[j] then flag:=true;
        inc(j);
      end;
      if not flag then
      begin
        if MainForm.ListBox.Count>18 then MainForm.ListBox.Items.Delete(0);
        MainForm.ListBox.Items.Add(IntToStr(i)+': '+IntToStr(number));
        list[i]:=number;
        inc(i);
      end;

procedure Analyze;
begin
  while(true) do
  begin
    sleep(100);
    WaitForSingleObject(hSemaphore,INFINITE);
    MainForm.ProgressBar.Position:=Round(i/100);
    MainForm.PercentLabel.Caption:=IntToStr(Round(i/100))+'%';
    ReleaseSemaphore(hSemaphore,1,nil);
  end;
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdHTTP;
 
type
  TForm1 = class(TForm)
    IdHTTP1: TIdHTTP;
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
      hThread: THandle;
    ThreadID: dword;
    { Private declarations }
  public
    { Public declarations }
  end;
 
    procedure Execute;
 
var
  Form1: TForm1;
  hSemaphore: THandle;
  i: word;
  k:Integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var pn,pm:Integer;
begin
hSemaphore:=CreateSemaphore(nil,1,1,nil);
pm:=StrToInt(Form1.Edit1.Text);
for pn:=0 to pm do
begin
hThread:=BeginThread(nil,0,@Execute,nil,0,ThreadID);
end
end;
 
procedure Execute;
var wait: dword;
begin
  while 0=0 do
  begin
  sleep(100);
    wait:=WaitForSingleObject(hSemaphore,INFINITE);
        i:=i+1;
    Form1.Memo1.Lines.Add(IntTOStr(i));
    Form1.IdHttp1.Get('http://fineproxy.ru');
    end;
    end;
 
end.

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

procedure Execute;
var wait: dword;
begin
  while 0=0 do
  begin
    wait:=WaitForSingleObject(hSemaphore,INFINITE);
        i:=i+1;
    Form1.Memo1.Lines.Add(IntTOStr(i));
    Form1.IdHttp1.Get('http://WestSide072.ucoz.ru');
     ReleaseSemaphore(hSemaphore,1,nil);
    end;
    end;

constructor TNewThread.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
end;

{...}
interface
{...}
type
{...}
  TMyThread = class (TThread)
  private
    // здесь объявляете все параметры для работы потока
  protected
    procedure Execute; override;
  public
    constructor Create({!ВАШ! список параметров}; CreateSuspended: Boolean); overload;
  end;
{...}
implementation
{...}
constructor TMyThread.Create({!ВАШ! список параметров}; CreateSuspended: Boolean);
begin
  Create(CreateSuspended: Boolean); // вызов конструктора базового класса
  // здесь делаете присваение параметров потоку
end;
procedure TMyThread.Execute;
begin
  // А здесь уже творите что хотите
end;
{...}
end.

idHttp: TidHttp;

ThreadHttp: TidHttp;

idHttp:=ThreadidHttp;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdHTTP, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    Edit1: TEdit;
    IdHTTP1: TIdHTTP;
    IdHTTP2: TIdHTTP;
    IdHTTP3: TIdHTTP;
    IdHTTP4: TIdHTTP;
    IdHTTP5: TIdHTTP;
    IdHTTP6: TIdHTTP;
    IdHTTP7: TIdHTTP;
    IdHTTP8: TIdHTTP;
    IdHTTP9: TIdHTTP;
    IdHTTP10: TIdHTTP;
    IdHTTP11: TIdHTTP;
    IdHTTP12: TIdHTTP;
    IdHTTP13: TIdHTTP;
    IdHTTP14: TIdHTTP;
    IdHTTP15: TIdHTTP;
    IdHTTP16: TIdHTTP;
    IdHTTP17: TIdHTTP;
    IdHTTP18: TIdHTTP;
    IdHTTP19: TIdHTTP;
    IdHTTP20: TIdHTTP;
    IdHTTP21: TIdHTTP;
    IdHTTP22: TIdHTTP;
    IdHTTP23: TIdHTTP;
    IdHTTP24: TIdHTTP;
    IdHTTP25: TIdHTTP;
    IdHTTP26: TIdHTTP;
    IdHTTP27: TIdHTTP;
    IdHTTP28: TIdHTTP;
    IdHTTP29: TIdHTTP;
    IdHTTP30: TIdHTTP;
    procedure Button1Click(Sender: TObject);
  private
    hThread: THandle;
    ThreadID: dword;
    { Private declarations }
  public
    { Public declarations }
  end;
 
   Execute = class(TThread)
  private
  idHttp: TidHttp;
  protected
    procedure Execute; override;
  public
    constructor Create(ThreadHttp: TidHttp;CreateSuspended: Boolean);
  end;
 
var
  Form1: TForm1;
    hSemaphore: THandle;
  i: word;
  k:Integer;
 
implementation
 
{$R *.dfm}
 
constructor Execute.Create(ThreadHttp: TidHttp;CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
  IdHTTP:=ThreadidHttp;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var pn,pm:Integer;
begin
hSemaphore:=CreateSemaphore(nil,1,1,nil);
pm:=StrToInt(Form1.Edit1.Text);
for pn:=0 to pm do
begin
Execute.Create(false);
end
end;
 
procedure Execute.Execute;
var wait: dword;
begin
  while 0=0 do
  begin
    wait:=WaitForSingleObject(hSemaphore,INFINITE);
        i:=i+1;
    Form1.Memo1.Lines.Add(IntTOStr(i));
    Form1.IdHttp1.Get('http://WestSide072.ucoz.ru');
     ReleaseSemaphore(hSemaphore,1,nil);
    end;
    end;
 
end.

IdHTTP:=ThreadidHttp;

Execute.Create(false);

    hThread: THandle;
    ThreadID: dword;