MyCs: TRTLCriticalSection; //定义临界区
EnterCriticalSection(MyCs); //进入临界区 //执行的代码 LeaveCriticalSection(MyCs); //离开临界区
