Delphi中使用消息处理线程的例子，很好的例子。绝对分有所值。