在delphi中用到多线程对一个资源操作时,比如一个数组,那么怎么实现对数组的加锁,实现同步互斥呢?