[Stanei]

Добрый день, как бы бессмыслено не звучало, но мне нужно сделать запуск потоков по очереди. (их около 10)
Потоки создавал через file>new>other>thread object

На форме кнопка с кодом:

Код:

var
p1:p1_pot;
p2:p2_pot;

begin
repeat
begin
   p1:=p1.Create(true);
   p1.FreeOnTerminate:=true;
   p1.Resume;
   p1.Priority:=tpnormal;
end;

begin
   p2:=p2.Create(true);
   p2.FreeOnTerminate:=true;
   p2.Resume;
   p2.Priority:=tpnormal;
end;
//и т.д.
until stop=1;
end;

Так вот, как можно сделать, что бы при нажатии на кнопку запускался первый поток, после его завершения, запускался второй, после завершения второго - третий и т.д.?