Как правельно организовать взаимодействие потоков ?

[kakawkin]

Вот у меня к вам такой вопрос: как с помощью потоков наотправлять сообщений icq ?

У меня есть 4 потока - 3 будут заполнять а 4 запускается для "контролирования".
Вот все 3 потока которые будут отправлять месагу:

procedure Tnew1.Execute(i:integer);
begin
  Form1.ICQClient1.SendMessage(i,'ПОТОК НОМЕР 1');
  Form1.ICQClient1.Disconnect;
end;

procedure Tnew2.Execute(i:integer);
begin
  Form1.ICQClient2.SendMessage(i,'ПОТОК НОМЕР 2');
  Form1.ICQClient2.Disconnect;
end;

procedure Tnew3.Execute(i:integer);
begin
  Form1.ICQClient3.SendMessage(i,'ПОТОК НОМЕР 3');
  Form1.ICQClient3.Disconnect;
end;

В 4 потоке я хотел бы распределять данные между двумя этими:

procedure Tnew4.Execute;
var new1: Tnew1;
    new2: Tnew2;
    new3: Tnew3;
begin
 new1:=tnew1.Create(true);
  new1.Priority:=tpLower;
  new1.Resume;
 new2:=tnew2.Create(true);
  new2.Priority:=tpLower;
  new2.Resume;
 new3:=tnew3.Create(true);
  new3.Priority:=tpLower;
  new3.Resume;
end;

В 4 потоке я убрал "авторазрушение" потока - сделаю это в самом конце.
По нажатию кнопки запускается 4 потом который создает осальные.
Теперь предположим в списке ListBox находятся уины.
По нажатию на кнопку вписал:

new4:=tnew3.Create(true);
  new4.Priority:=tpLower;
  new4.Resume;

Вопрос: как потоку 4 узнать что выполнился один из 3 потоков ? Может можно каким либо способом в 4 потоке создать таймер который будет определять мол

if new1.complete=true then Tnew1.Execute(form1.listbox.lines[0]);

а во все потоки добавить чтоыб после того как взяли первую строку - удаляли ее. И так каждый потмо будет брать первую строку удаляя ее.

[Johnson]

var
ThredArray: array of TNewThread;

...

setlength(ThredArray,length(ThredArray)+1;
ThredArray[high(ThredArray)]:=TNewThread.Create(true);
...

и работайте как с массивом и как с потоком. есть элемент массива - значит есть поток,
if ThredArray[0]<>nil then {поток существует}

у пототока (у элемента массива) можно назначать проперти или переменные, и доступ к ним по:
ThredArray[0].TestVariable:=123;

[kakawkin]

а как назначить тело потока если создаем из массива не подскажите плз ??? и вопрос остался не раскрытым:
если будет поток созданный из массива который делает следующее:
1) перенной s присваивает из listbox 0 строку
2) удаляет
3) отправляет сообщение на номер который в переменную s

тоесть могут работать сразу 10 потоков - токо надо следующее:
не дать сразу потокам 10 взять одну строку (как без настроек будет в самом начале программы). И таймеров чтоли отслеживать - мол в листе 0 строк - остановить и разрушить потоки