在Delphi中创建线程,请一定使用BeginThread()代替CreateThread()创建线程!(更好的管理异常)