大家都要好好学习delphi XE线程同步对象单元System.SyncObjs