var
FLock:TRTLCriticalSection;
//
定义临界区域
begin
InitializeCriticalSection(FLock);
//
初始化临界区域
EnterCriticalSection(FLock);
//
进入临界区域
LeaveCriticalSection(FLock);
//
退出临界区域
DeleteCriticalSection(FLock);
//
删除临界区域
end;
//CLASS
中使用实例
TRegGroups =
class
private