Delphi多线程的安全问题分析及解决,实现多线程的安全