这是一个不错的学习delphi7写线程的例子