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:
33:
34:
35:
36:
37:
38:

var
  Counter: integer; // globale variable an die alle teilnehmer rankommen
  CounterGuard: TCriticalSection; // dein schutz für den counter

// deine arbeitstiere
procedure TMyThread.Execute;
begin
  // ... die aufgabe des threads

  // danach dann:
  CounterGuard.Acquire; { Zähler mit einer Sperre belegen }
  Dec(Counter);   { Wert der globalen Zählervariable verringern }
  CounterGuard.Release; { Sperre vom Zähler entfernen }
  ...
end;

// dein hauptprogramm
procedure main;
begin
  CounterGuard := TCriticalSection.Create;
  Counter := 100; // die anzahl deiner arbeiter. (initial)
  for i := 1 to Counter do
    TMyThread.Create(False); { Artbeitstiere erzeugen und ausführen }
  while Counter > 0 do
  begin
    // wenn du weitere Arbeitstiere schaffen musst, muss du Counter erhöhen
    if 'Noch mehr arbeit' then
    begin
      // bei jedem zugriff auf den Counter muss sichergestellt werden das dies zur gleichen zeit immer nur einer tut
      CounterGuard.Acquire; { Zähler mit einer Sperre belegen }
      Dec(Counter);   { Wert der globalen Zählervariable verringern }
      CounterGuard.Release; { Sperre vom Zähler entfernen }
    end;
    Sleep(1);
  end;
  // wenn du hier hinkommst sind alle threads beendet.
  CounterGuard.Free;
end;