Правильно ли организован поток?

procedure TPotok.Execute;
var memolines:tstringlist;
begin
 while Work do
  begin
   CS.Enter;
    Inc(cc); 
    if cc<Peremennya.Count-1 then Cur:=cc else Work:=false;
   CS.Leave;
   if Work then
    begin
// тут всякие действия, к примеру
memolines:=tstringlist.create;
memolines.add('Stroka = '+Peremennya[Cur]);
     Synchronize(Sync);
    end;
  end;
 dec(Thread);
end;
 
procedure TPotok.Sync;
begin
form1.memo1.lines.add(memo1.lines.text);
end;

cc:=-1;
 Work:=true;
 for Thread:=0 to strtoint(sEdit1.TExt) do
 begin
  TPotok.Create(false);
 end;
  Thread:=strtoint(sEdit1.TExt);

unit Unit4;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Samples.Spin;
 
type
  TTPot = class(TThread)
  private
  SA:string;
    Ind, I1, I2: Integer;
    procedure AddLog;
    procedure Stop;
  protected
    procedure Execute; override;
  public
    constructor Create(Index, a1, a2: Integer);
  end;
 
type
  TForm4 = class(TForm)
    SpinEdit1: TSpinEdit;
    Label1: TLabel;
    Button1: TButton;
    AUsers: TListBox;
    Memo1: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form4: TForm4;
  Peremenaya:TStringList;
 Stoped: Boolean = True;
implementation
 
{$R *.dfm}
 
constructor TTPot.Create(Index, a1, a2: Integer);
begin
  inherited Create(True);
  Ind := Index;
  sa:='';
  I1 := a1;
  I2 := a2;
  FreeOnTerminate := True;
  Resume;
end;
 
procedure TTPot.AddLog;
begin
FOrm4.Memo1.Lines.Add(Sa);
end;
 
procedure TTPot.stop;
begin
  Form4.Button2.click;
end;
 
procedure TForm4.Button1Click(Sender: TObject);
var
I2:Integer;
begin
Stoped:=false;
Peremenaya.LoadFromFile('Open.txt');
I2 := Peremenaya.Count - 1;
TTPot.Create(0, 0,I2);
end;
 
procedure TTPot.Execute;
procedure AL(S: string);
begin
SA :=  S;
Synchronize(AddLog);
end;
var
I:integer;
begin
for I := 0 to Peremenaya.Count - 1 do
begin
if Stoped = True  then
begin
AL('Остановлено..');
Synchronize(Stop);
Exit;
end;
AL(IntToStr('Строка: '+Inttostr(i)));
end;
AL('Окончили');
end;
 
procedure TForm4.Button2Click(Sender: TObject);
begin
Stoped:=true;
end;
 
procedure TForm4.FormCreate(Sender: TObject);
begin
Peremenaya:=TStringList.Create;
end;
 
end.

procedure TTPot.stop;
begin
  Form4.Button2.click;
end;
 
procedure TTPot.Execute;
...
Synchronize(Stop);
...
end;
 
procedure TForm4.Button2Click(Sender: TObject);
begin
Stoped:=true;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
  Thread: TMyThread;
begin
  Memo2.Clear;
  for i := 0 to Memo1.Lines.Count - 1 do
   begin
   Thread := TMyThread.Create(Memo1.Lines[i], True);
   Thread.OnTerminate := HandleThreadResult;
   Thread.FreeOnTerminate := True;
   Thread.Resume;
   Application.ProcessMessages;
  end;
end;

type
  TMyThread = class(TThread)
  private
   FParam: String;
   FResult: String;
   parsi:strng;
  protected
  procedure Execute; override;
  public
  constructor Create(AParam: String; CreateSuspended: Boolean);
  property Result: String read FResult;
end;
 
constructor TMyThread.Create(AParam: String; CreateSuspended: Boolean);
begin
  inherited Create(True);
   FParam := AParam;
end;
 
procedure TMyThread.Execute;
var http: httpsend;
src:tstringlist;
begin
  FResult := FParam;
http:= httpsend.create;
 
http.httpmethod('GET','http://site.ru'+Memo1.Lines[i]);
src:=tstringlist.create;
src.LoadFromStream(HTTP.Document);
parsi:=Pars('ot', utf8toansi(src.Text), 'do');
    
end;
 
procedure TMyThread.OnTerminate;
begin
memo2.lines.add(parsi);
    
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenDialog1.InitialDir := ExtractFilePath(Application.ExeName);
 if OpenDialog1.Execute then
 begin
  Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
  Thread: TMyThread;
begin
  Memo2.Clear;
  for i := 0 to Memo1.Lines.Count - 1 do
   begin
   Thread := TMyThread.Create(Memo1.Lines[i], True);
   Thread.OnTerminate := HandleThreadResult;
   Thread.FreeOnTerminate := True;
   Thread.Resume;
   Application.ProcessMessages;
  end;
end;
 
procedure TForm1.HandleThreadResult(Sender: TObject);
begin
  with TMyThread(Sender) do
   Memo2.Lines.Add(Result);
end;

var i:integer;
begin
 for i := 0 to 100 do
   begin
  Thread1 := TMyThread.Create(inttostr(i),True);
  Thread1.Priority := tpidle ;
   Thread1.memo:= memo1;
    Thread1.memo2:= memo2;
     Thread1.memo3:= memo3;
  Thread1.ProgressBar := ProgressBar1;
  Thread1.Lbl := Label1;
  Thread1.Resume;
end;
 
// тут уже юнит потока 
 
constructor TMyThread.Create(AParam: String; CreateSuspended: Boolean);
begin
  inherited Create(True);
   FParam := AParam;
end;
 
procedure TMyThread.Execute;
var
  i: Integer;
   f:Integer;
   CurAcc, TP:integer;
    HTTP:THTTPSend;
    IP, Port:string;
    data:TStringStream;
    HTML, src:TStringList;
begin
  while Terminated = False do
  begin
 HTTP:=THTTPSend.Create;
     with HTTP do begin
           MimeType:='application/x-www-form-urlencoded';
      UserAgent:= 'Mozilla/5.0 (Windows; U; Win98; en-US; rv:0.9.2) Gecko/20010726 Netscape6/6.1';
     end;
       HTTP.HTTPMethod('GET',PChar('http://yaca.yandex.ua/yca/cat/'+FParam+'.html?text='+URLEncode1('Privet 1')+'&ncrnd=22&nocookiesupport=yes'));
       if pos('200', HTTP.Headers.Text)<>0 then  begin
       src:=Tstringlist.Create;
      sit2:=Tstringlist.Create;
     src.LoadFromStream(HTTP.Document);
   ParseStr(src.Text, '<h3 class="b-result__head"><a href="http://', '/', sit2);
  end;
 Synchronize(UpdateControls);  // синхронизируемся с методами VCL
  end;
end;
 
procedure TMyThread.UpdateControls;
begin
memo.Lines.Add(sit2.Text) ;
  ProgressBar.Position := ProgressBar.Position + 1;
  if ProgressBar.Position >= ProgressBar.Max then
    ProgressBar.Position := 0;
  Lbl.Caption := IntToStr(ReturnValue);
 
end;