Delphi另一个多线程函数:BeginThread用法