Работа в несколько потоков

procedure TPotok.Execute;
 
begin
   Synchronize(reg);
end;
 
 
procedure TPotok.reg;
begin
  Form1.Memo1.Lines.Add('Беру строку- '+IntToStr(i));
end;
 
procedure TForm1.Button1Click(Sender: TObject);
 
 
begin
    for i:=0 to Form1.Memo1.Lines.Count-1 do
  begin
 
      Potok:=TPotok.Create(true); //т.к запускаем через Resume
 Potok.Priority:=tpLower;
 Potok.FreeOnTerminate:=True;
 Potok.Resume;
 
  end;
 
 
end;

procedure TPotok.Execute;
 
begin
   Synchronize(reg);
end;
 
 
procedure TPotok.reg;
begin
  Form1.Memo2.Lines.Add('Беру строку- '+IntToStr(i));
end;
 
procedure TForm1.Button1Click(Sender: TObject);
 
 
begin
    for i:=0 to Form1.Memo1.Lines.Count-1 do
  begin
        setlength(Potok, i+1);
      Potok[i]:=TPotok.Create(true); //т.к запускаем через Resume
 Potok[i].Priority:=tpLower;
 Potok[i].FreeOnTerminate:=True;
 Potok[i].Resume;
 
  end;
 
 
end;