Многопоточная программа?

Question

[libera]

Уже 2 сутки не могу понять как сделать.
Подскажите

Вызываю поток

procedure TForm1.btn1Click(Sender: TObject);
var
  I: Integer;
begin
for I := 0 to se1.Value do
  text:=proba.Create(False);
  text.Priority:=tpNormal;
end;
 
end.

в потоке

procedure Proba.Execute;
begin
  n1;
end;
 
procedure Proba.n1;
var
  I: Integer;
  s,a:string;
begin
  for I := 0 to 5 do
    begin
      s:=form1.mmo1.Lines.Strings[i];
      Form1.mmo2.Lines.Add(s);
      Sleep(1000);
    end;
 
end;

end.
В se1 записываю пример 5 потоков это кнопка TSpinEdit;
Все работает, но я думаю не так.
Он выполняет все по 5 раз, а именно
1
2
3
4
5
Перенести в 2 memo
А он тупо одинаково все выполняет
1
1
1
1
1
2
2
2
и .д.
А мне надо, что бы он создал 5 потоков, с разными данными
1/2/3/4/5
Во 2 потоке 2
В 3 потоке 3 ну и т.д.

Подскажите как так сделать? Что бы он не попировал потоки и выполнял, а создавал 5 разных потоков с разными переменными

Comments

[Александр Ананьев]

Напишите вопрос, так чтобы было понятно, что вы хоите сделать.

[libera]

Что бы например из Memo где 5 строк, он создавал 5 потоков, и в них заносил данные с каждой строки, не поочередно, а сразу 5 потоков с разными данными.
Пример выше.

[Александр Ананьев]

libera: Для одновременного доступа к объектам пользуйтесь блокировками, например критическими секциями docwiki.embarcadero.com/RADStudio/Seattle/en/Using... Т.е. перед добавлением чего-то в объекты вы блокируете доступ для других потоков, после добавления - снимаете блокировку.