关于一个多线程的问题

Question

比如我有一个方法function1,在function1中创建一个线程是TThread的一个实例，对应的方法Execute，我想实现这样的功能，原来的方法要等到线程的Execute执行完毕，再往下执行，也就是说，function1中有一条语句是Execute，我要等到Execute执行完了再往下执行，不知道采取什么措施可以让他阻塞，Execute执行完了，再把它唤醒。
比如一个函数
function1
begin
  Thread1:=TConnectThread.Create(False);
  Thread1.Priority:=tpNormal;
  Thread1.FreeOnTerminate:=True;
  /*代码区*/
  ...........
end;
线程创建完后去执行Thread1的Execute方法，等到Execute执行完后再去执行function1中接下去的代码
不知道如何实现，望大哥大姐指教！

Answer 1

用Event，在线程执行之前先Reset这个Event，将这个个Event的句柄给线程，线程执行完后set这个Event，
在你的/*代码区*/执行之前WaitFor这个Event，

Answer 2

1. 如果是这样，有必要用线程吗？2. 在需要Block的地方 WaitForSingleObject(线程句柄,永远） 就行了