Про потоки с нуля

unit UMainForm;
 
interface
 
uses
  classes, types, forms, Controls, StdCtrls, Dialogs, SysUtils;
 
type
  TMainForm = class(TForm)
    bStart: TButton;
    m1: TMemo;
    Edit1: TEdit;
    CheckBox1: TCheckBox;
    procedure bStartClick(Sender: TObject);
  private
    procedure Log(const s: string);
    procedure ThreadTerm(Sender: TObject);
  public
    Started:integer;
    Finished:integer;
    procedure RunThread();
 
  end;
 
var
  MainForm: TMainForm;
 
implementation
 
uses
  UMyThread;
 
 
const
  MAX_THREADS=5;
  SAME_TIME=50;
 
{$R *.dfm}
 
 
 
 
{ TMainForm }
 
 
procedure TMainForm.Log(const s:string);
begin
  m1.Lines.Add(s);
end;
 
procedure TMainForm.ThreadTerm(Sender: TObject);
var
  th:TMyThread absolute Sender; // очень древняя магия. обозначает th:=TMyThread(Sender)
begin
  log(th.URL + ':'+th.answer);
  inc(Finished);
  if Started<10 then
    RunThread;
  if Finished=MAX_THREADS then
  begin
    log('===========================');
    log('Работа окончена');
    bStart.Enabled := true;
  end;
end;
 
procedure TMainForm.bStartClick(Sender: TObject);
var
  i: Integer;
begin
  bStart.enabled:=false;
  for i := 0 to SAME_TIME-1 do
    RunThread;
end;
 
procedure TMainForm.RunThread;
var
  th:TMyThread;
begin
  inc(Started);
  th:=TMyThread.Create('URL '+inttostr(Started), ThreadTerm );
 
  Log('запущен '+th.url);
  th.Resume;
end;
 
end.

unit UMyThread;
 
interface
uses Classes,ssl_openssl, httpsend;
type
  TMyThread=class(TThread)
  public
    th:TMyThread;
    URL:string;
    answer:string;
    http: THTTPSend;
    StringList: TStringList;
    procedure Execute;override;
    constructor Create(AURL:string; TermProc:TNotifyEvent);
  end;
 
implementation
uses Sysutils;
 
{ TMyThread }
 
constructor TMyThread.Create(AURL:string; TermProc:TNotifyEvent);
 
begin
  inherited Create(true);
  URL := AURL;
  FreeOnTerminate := true;
  OnTerminate := TermProc;
 
end;
 
procedure TMyThread.Execute;
var
  StringList: TStringList;
  begin
 
 
     http:=THTTPSend.Create;
     StringList:=TStringList.Create;
 
     HTTP.MimeType:='application/x-www-form-urlencoded';
     http.Timeout:=40000;
       try
 
          http.HTTPMethod('GET', 'http://ru.myip.ms');
 
               StringList.LoadFromStream(http.Document);
 
            except
            on E : Exception do begin
            URL:='     '+E.ClassName+'     '+E.Message;   end;
       end;
      Answer:=inttostr(HTTP.ResultCode);
   StringList.Free;
   http.Free;
  end;
 
end.

procedure TMainForm.SpeedButton1Click(Sender: TObject);
var
 THR_Users : TTHreadGet_Users;
 i         : integer;
 counter   : integer;
 user_ids  : String;
begin
  // Заполнение параметров
  counter := 0;
  ThreadCounter := 1;
 
  {        ПЕРЕБОР             }
  for I := Trim(edMP_Min.Text).ToInteger to Trim(edMP_Max.Text).ToInteger do
  begin
 
    if counter = 99 then
    begin
      edMP_Min.Text := i.ToString;
      counter := 0;
 
 
      ThreadCount := TrackBar1.Position;
      while ThreadCounter > ThreadCount do
      begin
        sleep(200);
        Application.ProcessMessages;
        ThreadCount := TrackBar1.Position;
      end;
 
      Label34.Caption := ThreadCounter.ToString;
      // Поток запроса
      THR_Users := TTHreadGet_Users.Create(true);
      THR_Users.FreeOnTerminate := true;
      THR_Users.OnTerminate     := OnTermenate;
 
      // Список городов, фильтр
      THR_Users.Cityes.AddStrings(memMPCityFilter.Lines);
      THR_Users.Token := NextToken; // Токен
      THR_Users.Proxy := NextPoxy;  // Прокси
      THR_Users.users_get.user_ids := user_ids; // список id пользователей
      THR_Users.Resume;
 
      inc(ThreadCounter);
      user_ids := ''
    end;
 
    user_ids := user_ids + (i.ToString+',');
    counter := counter+1;
  end;
 
end;

procedure TMainForm.OnTermenate(Sender: TObject);
begin
  Dec(ThreadCounter);
  memo2.Lines.Add((sender as TTHreadGet_Users).Error );
end;

while ThreadCounter > ThreadCount do
      begin
        sleep(200);
        Application.ProcessMessages;
        ThreadCount := TrackBar1.Position;
      end;

  MAX_THREADS=100;
  SAME_TIME=2;

procedure TMainForm.bStartClick(Sender: TObject);
var
  i: Integer;
 begin
  bStart.enabled:=false;
  urlzmemo:=0;
  finished:=0;
  for i := 0 to StrToInt(Edit6.Text) do //edit - колво потоков
   RunThread;
 end;

procedure TMainForm.RunThread;
var
  th:TMyThread;
 begin
  inc(urlzmemo);
  th:=TMyThread.Create(Memo2.Lines[urlzmemo], ThreadTerm );

  th:=TMyThread.Create(Memo2.Lines[i]

  
peremennaya:= StrToInt(Edit6.Text);
for i := 0 to  do peremennaya
   RunThread;

  for i := 0 to StrToInt(Edit6.Text) do
   RunThread;

if Proxy.Checked then th.prox:= true;

th.prox := Proxy.Checked;

if prox then
begin
http.ProxyHost:='127.0.0.1';
http.ProxyPort:= '2222';
end;

if prox=true then
begin
http.ProxyHost:='127.0.0.1';
http.ProxyPort:= '2222';
end;

th.poisk := poisk.text;
....
if ((Pos(poisk, StringList.Text)<>0)