原文:Delphi中使用Win32 API创建内建消息循环的线程函数