Wie auf 2 Threads warten?

[C.Schoch]

Hi,
Ich möchte zuerst 2 Threads starten, auf deren Beendigung warten und dann einen weiteren starten und wiederum auf diesen warten und erst dann die Variable "i" hochzäheln.
Leider krieg ich das überhaupt nicht hin .

so funktionierts schonmal nicht, bekomme diverse Fehlermeldungen:

Delphi-Quellcode:

procedure TMainForm.btBackupClick(Sender: TObject);
var
  i : integer;
  hHandles : array[0..1] of THandle;
begin
  for i := 0 to lvSourceDestination.Items.Count - 1 do
  begin
    TtSearchSourceFiles.create(true);
    TtSearchDestFiles.create(true);
    TtSearchSourceFiles.sSourceDir := lvSourceDestination.Items[i].SubItems[0];
    TtSearchDestFiles.sDestDir := lvSourceDestination.Items[i].SubItems[1];
    TtSearchSourceFiles.Resume;
    TtSearchDestFiles.Resume;
    hHandles[0] := TtSearchSourceFiles.Handle;
    hHandles[1] := TtSearchDestFiles.Handle;
    case msgWaitForMultipleObjects(2,hHandles,true,INFINITE,QS_PAINT) of
    WAIT_OBJECT_0 + 0 and WAIT_OBJECT_0 + 1:
    begin
      TtSortFiles.Create(false);
    end
    end;
  end;
end;

Danke schon mal für die Hilfe