一个简单的多线程Demo,delphi2010版