临界区的使用

MyCs: TRTLCriticalSection;   //定义临界区

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