delphi中的临界区

var

    fLock:TRTLCriticalSection; //定义临界区域

// 初始化

  InitializeCriticalSection(fLock);

//进入临界区

  EnterCriticalSection(fLock);

//离开临界区

  LeaveCriticalSection(fLock);

//删除

  DeleteCriticalSection(fLock);