有关线程中showmessage('')问题 (在线等，无未结帖记录）

我一个自己的线程中有一段repeat..until语句，在循环体外有一个showmessage('') 语句，用来提示工作已完成 但每次运行到这里，都提示canvas画错误我不知道是什么原因，虽然说delphi不支持多线程同时访问可视对象库，但showmessage也属于可视对象库中的么？如果用lock ..unlock可以解决这个问题么？
如果可以要对那个组件的canvas进行lock呢？
或者有别的办法可以正常提示工作完成么？