[ApxaHGe1]

Здравствуйте, есть поток, в котором выполняется определнный код

Код:

procedure TMyThread1.DoWork;
begin
for i:=0 to Form1.Listbox1.items.count - 1 do
begin
// 
end;
end;

Суть в том что после каждого итема взятого из лист бокса мне нужно сделать паузу в 30 секунд, и следовательно если итемов > 100 то процесс займет значительно долгое время!
Уважаемые знатоки, вопрос: "Как сделать мой этот цикл в 10 потоках? или более" ?

Отвечает...