不停的往Memo中输出文本信息，满1000行就clear运行大概一分多钟就会出错，
捕捉到的出错信息如下：
Outof system resources
TScrollingStyleHook.TScrollWindow:句柄无效
TScrollingStyleHook.TScrollWindow:拒绝访问
TScrollingStyleHook.TScrollWindow:Outof system resources
TMemo:Canvas dose not allow drawing
刚开始怀疑是不是TMemo的bug，单独新建了一个工程发现不是。
后来在QQ群中一位网友发的一张图片启发了我
在线程中加入Delay延时，问题得到解决。
原来计算机也有来不及处理处理数据的时候。
经验总结：以后在线程中执行记得加上delay。