多线程编程的时候，有时候会向界面发送大量日志信息，但是在线程里操作界面会造成死锁等怪现象，基于此，开发了此类，用来在线程里发送字符串信息，支持扩展信息。使用时SendMsg为发送消息，Pointer可传入扩展信息的内存指针，TStringMsgObj的创建函数传入显示消息回调及释放扩展信息回调，没有扩展信息可不传释放回调
Multi-threaded programming, sometimes a lot of log information sent to the interface, but in the user interface thread will result in deadlock and other strange phenomena, based on this, the development of such, used to thread the string to send information to support expansion information. SendMsg for sending messages when used, Pointer extended information can be passed in memory pointer, TStringMsgObj incoming message to create a callback function and callback release expansion information, did not extend the release of information from time to pass callback (2011-10-11, Delphi, 1KB, 下载13次)