[lmikle]

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

Код:

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;