Wie auf 2 Threads warten?

[C.Schoch]

Hi,
nach langem Probieren hab ichs hinbekommen und zwar so:

Oberflächen Unit:

Delphi-Quellcode:

procedure TMainForm.btBackupClick(Sender: TObject);
var
  i : integer;
begin
  for i := 0 to lvSourceDestination.Items.Count - 1 do
  begin
    TtSearchSourceFiles.create(true);
    TtSearchDestFiles.create(true);
    TtSearchSourceFiles(Self{[hier lag der Fehler!!}).sSourceDir := lvSourceDestination.Items[i].SubItems[0];
    TtSearchDestFiles([Self).sDestDir := lvSourceDestination.Items[i].SubItems[1];
    TtSearchSourceFiles([Self).Resume;
    TtSearchDestFiles(Self).Resume;
    TtSortFiles.Create(false);
  end
end;

Thread:
Den entscheidenden 3. Thread auf die ersten zwei per Event und WaitForMultipleObjects warten lassen.