TTask.WaitForAll hängt

[Smiley]

Hier die DirList Routine.
Wenn nur ein Task läuft, wo soll dann ein Deadlock eintreten ???
Das WaitForAll wird in dem Beispiel von Embarcadero verwendet und ich wollte es benutzen um nicht mit einem eigene Flag arbeiten zu müssen.

Kann ich dann mal ein Beispiel mit EndMessage sehen ?

Delphi-Quellcode:

// *****************************************************************************
procedure TForm1.DirList;
var
  // SearchResult
  MainVerz: TStringDynArray;
  SearchResult: TStringDynArray;
  FilterMaske: String;

  I: Integer;
begin

  StartFolder := '\\SCHLUPP\Praktikant\Delphi\Tutorial\';

  // Filter für *.pdf, *.docx,...
  FilterMaske := '*.*';

  // Grid.StartUpdate;
  GridInit;
  AktLine := 1;
  ListBox1.clear;

  // Uses IOUtils für GetDir..und System.Types für DynArray hinzufügen
  // Alle Hauptverzeichnisse einlesen und dann pro Verz. eine Suche ausführen in eigenem Thrad
  StartTime := Now();
  MainVerz := TDirectory.GetDirectories(StartFolder, TSearchOption.soTopDirectoryOnly, nil);
  Form1.ProgressBar1.Max := high(MainVerz);
  qV.Open;
  for j := 0 to High(MainVerz) do
    begin
      ListBox1.Items.Add(MainVerz[j]);
      try
        Begin
          // Einlesen der Dateien ab dem Verz[j]
          SearchResult := TDirectory.GetFiles(MainVerz[j], FilterMaske, TSearchOption.soAllDirectories);
          for I := 0 to High(SearchResult) do
            begin
              if SearchResult[I] <> '' then
                begin
                  // grid.Cells[1, AktLine] := ExtractFilename(SearchResult[I]);
                  // grid.Cells[2, AktLine] := ExtractFilePath(SearchResult[I]);
                  qV.append;
                  qV.FieldByName('Verzeichnis').AsString := ExtractFilePath(SearchResult[I]);
                  qV.FieldByName('Datei').AsString := ExtractFileName(SearchResult[I]);
                  qV.FieldByName('Kategorie').AsString := '';
                  qV.Post;
                  inc(AktLine);
                end;
            end;
          ListBox1.Items.Add('Task ' + IntToStr(j) + ' Zeit: ' + FormatDateTime('hh:nn:ss:zzz', Now - StartTime));
          StartTime := Now();
          ListBox1.Refresh;
        End;
      except
        // Catch the possible exceptions
        MessageDlg('Incorrect path or search mask', mtError, [mbOK], 0);
        Exit;
      end;
      Form1.ProgressBar1.Position := j;
    end;
  LTaskRun := false;
end;