Multithreadanwendung koordinieren

[der_boss]

Hallo, endlich sommer!

Ich möchte eine Multithreadanwendung implementieren, der eine Thread soll so lange laufen, wie er nicht beendet worde,
d.h. in seiner execute steht

Delphi-Quellcode:

while not terminated do begin
    if UsbParIn(c_DevNum,instream,c_laen) then begin
      weitergabe:=instream;
      DarstThread.Resume;   // hier soll der andere Thread angestoßen werden
    end;
  end; // while

und in der anderen DarstThread.Execute steht:

Delphi-Quellcode:

procedure darst_Thread.Execute;
var
  i,max,min:integer;
  mittel:double;
begin
    irgendwas;
    suspend;
  end;

und immer an der markierten stelle soll der erste thread den zweiten Thread anstoßen, damit der zweite seine execute-Prozedur einmal ausführt.
Im Moment sieht es so aus, die zweite exe-Proz einmal ausgeführt wird, dann aber nicht mehr. Was kann ich tun?
Mit suspend sollte doch der DarstThread angehalten werden, um dann, wenn der erste Thread wieder resume gibt, weiterzulaufen..