"在异步运行时 操作不能被执行" 急求解决办法(100分)

我写了一个与硬件通讯的线程。
线程中不短检测与com口连接的刷卡器，有人刷卡时读取其卡号并存入数据库。
同时在主窗体memo中添加 ’×××刷卡‘
以前运行正常，近来出现了"在异步运行时 操作不能被执行"的错误。
调试发现，错误时在 执行数据库写入操作后，再执行向主窗体中memo中添加字符的函数就会出错。而如果不执行数据库操作，则向主窗体中memo中添加字符的函数不会出错。
～！！！！
请各位大侠帮忙

可能是線程同步問題，最後貼出代碼看看。