[lmikle]

Да не, нужен просто стек заданий.
Каждый поток просто будет брать очередное задание из очереди и обрабатывть его. Если очередь пуста, то поток отключается.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

var   CS : TCriticalSection;   procedure TMyThread.Execute; var   AItem : String;   HaveWork : Boolean; begin   HaveWork := True;     While HaveWork Do begin     Sleep(30000); // Твоя задержка     S := '';    CS.Enter;   Try     If MainForm.List1.Items.Count > 0 Then       Begin         AItem := MainForm.List1.Items[0];         MainForm.List1.Items.Delete(0);       End;   Finally     CS.Leave;   End;     HaveWorl := S <> '';     If HaveWork Then ProcessItem(AItem); // обработка задания     end; // While end;