一个简单的delphi中的多线程例子,非常适合初学者