Canvas doesn't allow drawing

在调试delphi应用程序时，会在程序运行几秒后，突然出现这个错误。一般这个错误都是出现在使用线程时，因为在使用Thread时，所有的关于UI的代码都要进行同步，否则，就会出现这个错误，既然知道了错误原因，也就找到了解决方法。

      即使是简单地显示一个消息对话框，也要将他单独写为一个方法，然后在使用该方法时，必须进行同步。如下：

procedure TReadThread.ShowError;
begin
  ShowMessage('通信错误');
end;

在需要显示消息的地方进行如下调用，如：

     if ((GetTickCount() - readFirst) > 2 * ULong(roundTime) * 1000) then  
       begin
         Synchronize(ShowError);
         Sleep(300);
         Exit;
       end;