2) 等待其他线程
若线程必须等待另一线程完成某项任务，可让线程临时中断执行。然后，要么等待另一线程完全执行结束，要么等待另一线程通知完成了该任务。
(1)等待线程执行结束
要等待另一线程执行结束，使用它地Wait For（）函数。Wait For函数直到那个线程终止才返回，终止的方式要么完成了其Execute（）函数，要么由于一个异常。
(2)等待任务完成。有时，只需要等待线程完成一些操作而不是等待线程执行结束。为此，可使用一个事件对象。事件对象（TEvent）应具有全局范围以便他们能够为所有线程可见。当一个线程完成一个被其他线程依赖的操作时，调用TEvent：：Set Event（）函数。Set Event发出一个信号，以便其他线程可以检查并得知操作完成。要关掉信号，则使用Reset Event()函数。
例如，当必须等待若干线程完成其执行而不是单个线程时。因为不知道哪个线程最后完成，也就不能对某个线程使用Wait For（）函数。此时，可通过调用Set Event以在线程结束时累加计数值并在最后一个线程结束时发出信号以指示所有线程结束。
多线程应用程序编程实例
下面是一个实现"生产者－消费者问题"的多线程应用实例。在此例中，我们按上面介绍的方法构造了两个TThread的子类TProducerThread（生产者线程）和TCustomerThread（消费者线程），生产和消费的商品仅仅是一个整数。在协调生产和消费的过程中，重要区段（TCriticalSection）和事件（TEvent）得到了应用。生产者通过TEvent类的对象Begin Consume来通知消费者开始消费，而消费者通过TEent类的对象Begin Produce通知生产者开始生产。程序中共有两个生产者，一个消费者。在两个生产者之间，通过TCriticalSection类的对象同步。其运行界面如图1所示。
 图1 程序运行效果 |
主要源程序如下所示：
生产者线程：
Void __fast call TProducerThread:: Execute ()
{
//---- Place thread code here ----
Int i = 0;
Int j;
while(i<100) //每个生产者线程生产100个商品
{
Sleep(1000);//延迟，为清楚得显示执行效果
if(Form1->buffer_size > 0)//缓冲池不空，通知消费者消费
{
Form1->Begin Consumer->Set Event ();
}
Form1->Produce Guard->Acquire ();
i++;
StrResult = IntToStr (i);
J = Form1->buffer_size;
Form1->Pro