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

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

/// на кнопку старта
var
  t: TRecursiveSearchThread;
  i:integer;
begin
 
 
  ListView1.clear;
  processqueueform.listbox1.clear;
  for i := 0 to memo1.lines.count-1 do begin
 
  t := TRecursiveSearchThread.Create(true);
  with t do
  begin
    Priority := tpLower;
    stran := memo1.lines[i];
    FreeOnTerminate := true;
    OnTerminate := HandleThreadTerminate;
    FThreads.add(t);
    resume;
  end;
  end;
  ToggleButtons;
 
/// в самом потоке 
FStran: string;
property stran: string read Fstran write Fstran;
 
.....
 
procedure TRecursiveSearchThread.Execute;
var
 i: Integer;
    HTTP:THTTPSend;
    HTML, src:TStringList;
begin
  inherited;
 
 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/'+FStran+'.html?text=101&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(Found);
end;
procedure TRecursiveSearchThread.Found;
begin
  ProcessQueueForm.Queue(sit2.Text);
end;

// переменная в потоке
flolka:string;
property lolka: string read Flolka write Flolka;
 
...
 
// в самом потоке
procedure TRecursiveSearchThread.Execute;
var
 i: Integer;
   f:Integer;
   CurAcc, TP:integer;
    HTTP:THTTPSend;
    IP, Port:string;
    data:TStringStream;
    HTML:TStringList;
begin
  inherited;
 // ProcessDirectory(IncludeTrailingPathDelimiter(StartDir));
 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/'+StartDir+'.html?text=101&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);
       flolka:=sit2.Text;
       end;
       http.Free;
       src.Free;
       sit2.Free;
       //Synchronize(FileFound);
end;
 
...
 
// в гл. форме
procedure TMainForm.HandleThreadTerminate(Sender: TObject);
var
  i: integer;
begin
 
  if sender is TWorkerThread then
    TWorkerThread(Sender).ProgressBar.Free;
 
  memo2.Lines.Add(TRecursiveSearchThread(Sender).lolka);
 
  for i := 0 to FThreads.count-1 do
    if sender = FThreads[i] then
    begin
 
      FThreads.Delete(i);
      break;
    end;
 
  ToggleButtons;
end;

 FMaxThreads := StrToInt(edit2.text);
  HandleFileQueued(self);
end;
 
procedure TMainForm.HandleFileQueued(Sender: TObject);
var
  t: TWorkerThread;
  p: TCustomProgressBar;
begin
  if FThreads.count > FMaxThreads then
    TThread(FThreads[FThreads.count-1]).Terminate;
 
  if (FThreads.Count < FMaxThreads)
    and (ProcessQueueForm.Count > 0) then
  begin
    t := TWorkerThread.create(true);
    with t do
    begin
      Priority := tpLowest;
      FreeOnTerminate := true;
      OnTerminate := HandleThreadTerminate;
      p := TCustomProgressBar.Create(nil);
      p.Parent := ScrollBox1;
      ProgressBar := p;
      FThreads.add(t);
      Resume;
    end;
  end;
end;

  if FThreads.count > FMaxThreads then
    TThread(FThreads[FThreads.count-1]).Terminate;

for i := 0 to memo1.lines.count-1 do begin
 
  t := TRecursiveSearchThread.Create(true);
  with t do
  begin
    Priority := tpLower;
    stran := memo1.lines[i];
    FreeOnTerminate := true;
    OnTerminate := HandleThreadTerminate;
    FThreads.add(t);
    resume;
  end;
  end;

for i := 0 to memo1.lines.count-1 do begin
HandleFileQueued(self);
  t := TRecursiveSearchThread.Create(true);
  with t do
  begin
    Priority := tpLower;
    stran := memo1.lines[i];
    FreeOnTerminate := true;
    OnTerminate := HandleThreadTerminate;
    FThreads.add(t);
    resume;
 
end;
  end;

for i := 0 to memo1.lines.count-1 do begin
if i < FMaxThreads then // в данном случае переменная i еще и обозначает номер потока
  t := TRecursiveSearchThread.Create(true);

// в execute 
procedure TRecursiveSearchThread.Execute;
var
 i: Integer;
   f:Integer;
   CurAcc, TP:integer;
    HTTP:THTTPSend;
    IP, Port:string;
    data:TStringStream;
    HTML:TStringList;
begin
  inherited;
if not Terminated then
  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/'+FStran+'.html?text=101&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);
       flolka:=sit2.Text;
       end;
       http.Free;
       src.Free;
       sit2.Free;
      end;
while not Terminated do
SleepEx(INFINITE);
end;