MyCs: TRTLCriticalSection; //定义临界区
EnterCriticalSection(MyCs); //进入临界区
//执行的代码
LeaveCriticalSection(MyCs); //离开临界区
MyCs: TRTLCriticalSection; //定义临界区
EnterCriticalSection(MyCs); //进入临界区
//执行的代码
LeaveCriticalSection(MyCs); //离开临界区
转载于:https://www.cnblogs.com/zyb2016/p/11459530.html