通过消息主线程与线程进行通信Demo。此Demo是delphi多线程的深入应用。