procedure ThreadTest;stdcall; var Handles:TWOHandleArray; //Handle:THandle; Test:TTest; i:Integer; begin for i := 0 to 10 do begin Test := TTest.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, @ThreadTest, nil, 0, ID ); end; procedure TTest.Execute; begin { Place thread code here } //FreeOnTerminate := False; form1.mmo1.Lines.Add( 'ok' ); end;

这个例子如果把WaitForMultipleObjects函数放在主线程中执行（btn1Click），会造成线程死锁。这是因为在创建完所有线程后WaitForMultipleObjects函数会导致主线程锁定，等待所有子线程执行完毕。而由于在TTest子线程中需要进行界面交互，会导致死锁。

简单的说，如果A为主线程，B为子线程。WaitForMultipleObjects将A锁定，B操作memo控件，要等待A解锁后才能执行，所以就会导致B永远在那里等待。而B未结束，相应的A中的WaitForMultipleObjects也只能永远等待了。