delphi线程使用的例子,适合delphi新手学习使用。。。。