delphi 中使用WaitForMultipleObjects等待线程执行，再执行后续代码

unit1

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    mmo1: TMemo;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

    procedure ThreadTest;stdcall;
implementation

uses Unit2;

{$R *.dfm}


procedure ThreadTest;stdcall;
var
    Handles:TWOHandleArray;
    //Handle:THandle;
    Test:TTestThread;
    i:Integer;
begin
    for i := 0 to 10 do
    begin
        Test := TTestThread.Create(False);
        Handles[i] := Test.Handle;
    end;
    WaitForMultipleObjects( 11, @Handles, True, INFINITE );
    Form1.mmo1.Lines.Add( '123' );
end;


procedure TForm1.btn1Click(Sender: TObject);
var
    ID:Cardinal;
begin
    CreateThread( nil, 0, @