多线程的临界区

Delphi 支持多平台以后，多线程的临界区的写法，和以前不同了。

以前在 VCL 底下，临界区的使用，是创建一个 TCriticalSection 对象实例，使用这个对象实例的 Enter 方法进入临界区（实际上就是锁定一个缓冲区），另外一个线程如果要访问这个缓冲区的时候，同样调用这个临界区的 Enter，这时候它就进不去，知道前面那个线程调用临界区的 Leave 方法离开。

TCriticalSection 之前是对 Windows 提供的对象的一个包装。支持多平台以后，新的声明在：System.SyncObjs 里面。

在 Delphi 安装以后的官方例子里面，有个蓝牙聊天的 Demo 程序。在这个程序里面，线程之间采用：

System.TMonitor.Enter(FObj)  来锁定一个缓冲区。

解除锁定是：System.TMonitor.Exit(FObj);

这里，FObj 就是一个  TObject 的对象实例。在那个蓝牙聊天的 Demo 里面，这个 FObj 专门创建来用在这个地方，没有其它意义。