臨界區的 使用

{
多線程程序中，若是各個線程要訪問同一個資源，如同一個變量
這時就要使用線程同步技術，纔不會使線程之間產生衝突和干擾
線程同步有多種辦法，使用臨界區是其中最簡單，也是效率最高的辦法(CPU佔用時間最少)
}
// 先聲明一個TRTLCriticalSection類型的全局變量
var  MyCs:TRTLCriticalSection;

// 在程序開始或創建線程以前，初始化
  InitializeCriticalSection(MyCs);//初始化臨界區

// 在程序結束或全部線程結束後，刪除它
  DeleteCriticalSection(MyCs);//刪除臨界界

// 再在線程中要同步的地方加入
EnterCriticalSection(MyCs); //進入臨界區    
try      
   // 程序代碼    
finally      
    LeaveCriticalSection(MyCs); //離開臨界區    
end;