DelphiXE10.2.3实现线程安全访问数据和对象（四）——实现原子自旋锁的无锁对象池