delphi中的临界区

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


// 初始化
  InitializeCriticalSection(fLock);

//进入临界区
  EnterCriticalSection(fLock);

//离开临界区
  LeaveCriticalSection(fLock);

//删除
  DeleteCriticalSection(fLock);