Delphi Threaddemo ändern/Warten auf Threads

[Hallo_Thomas]

Hallo,

ich versuche gerad die Threads zu verstehen, ich wollte dieses Beispiel so abändern das QuickSort erst nach den anderen zwei sortierverfahren startet. Wie stell ich das in dieser Procedur an.

Delphi-Quellcode:

procedure TThreadSortForm.StartBtnClick(Sender: TObject);
var x:Cardinal;
begin
  //for x:=0 to 10do
  begin
  RandomizeArrays;
  ThreadsRunning := 3;

  with TBubbleSort.Create(BubbleSortBox, BubbleSortArray) do
    OnTerminate := ThreadDone;
   // Synchronize;
  with TSelectionSort.Create(SelectionSortBox, SelectionSortArray) do
    OnTerminate := ThreadDone;
 // Dec(ThreadsRunning);
 // if ThreadsRunning = 1 then
 //MsgWaitForMultipleObjects;
  begin
  with TQuickSort.Create(QuickSortBox, QuickSortArray) do
  Begin
    OnTerminate := ThreadDone;
  end;
  end;
  StartBtn.Enabled := False;
  end;
end;