.Tevent建立单元:
var
myEvent:tevent;  //最好是一个全局变量,
begin  myEvent := tevent.Create(nil,false,true);  //缺省安全等级,自动复位,初始状态为,有信号。
2.使用单元:
//×××××××××××××××××××××××.....
      //-------------------
      WaitForSingleObject(myEvent.Handle,INFINITE);  
      //---------------
      AnalyseManager.Process(xxx);    // 开始独占使用      myEvent.SetEvent;        // 访问完成,设置为有信号
.......
    end;
  end;
//×××××××××××××××××××××××××××