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

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

for i := 0 to sL.Count - 1 do
  TMyThread.Create(sL[i], True);

[quote="FIL;6726372"]
for i := 0 to sL.Count - 1 do
* TMyThread.Create(sL[i], True);[/quote]

for i := 0 to 100 do
   begin
  Thread1 := TMyThread.Create(inttostr(i),True);

 for k := 0 to sL.Count - 1 do  begin
  Thread1 := TMyThread.Create(sL[k],True);
  Thread1.Priority := tpidle ;
   Thread1.memo:= memo1;
    Thread1.memo2:= memo2;
     Thread1.memo3:= memo3;
  Thread1.ProgressBar := ProgressBar1;
  Thread1.Lbl := Label1;
  Thread1.Resume;
end;

 TMyThread = class(TThread)
  private
    { Private declarations }
    FParam: String;
   FResult: String;
   sit2:tstringlist;
    procedure UpdateControls;
  protected
    procedure Execute; override;
  public
    ProgressBar: TProgressBar; //поле потока для подключения к TProgressBar
    Lbl: TLabel; //поле потока для подключения к информационной метке
    memo:Tmemo;
    memo2:tmemo;
    memo3:tmemo;
     constructor Create(AParam: String; CreateSuspended: Boolean);
  property Result: String read FResult;
  end;

Thread1.memo:= memo1;
    Thread1.memo2:= memo2;
     Thread1.memo3:= memo3;