在调试delphi应用程序时，会在程序运行几秒后，突然出现这个错误。一般这个错误都是出现在使用线程时，因为在使用Thread时，所有的关于UI的代码都要进行同步，否则，就会出现这个错误，既然知道了错误原因，也就找到了解决方法。
即使是简单地显示一个消息对话框，也要将他单独写为一个方法，然后在使用该方法时，必须进行同步。如下：
procedure TReadThread.ShowError;
begin
ShowMessage('通信错误');
end;
begin
ShowMessage('通信错误');
end;
在需要显示消息的地方进行如下调用，如：
if ((GetTickCount() - readFirst) > 2 * ULong(roundTime) * 1000) then
begin
Synchronize(ShowError);
Sleep(300);
Exit;
end;
begin
Synchronize(ShowError);
Sleep(300);
Exit;
end;
本文转自 august 51CTO博客，原文链接：http://blog.51cto.com/august/6907，如需转载请自行联系原作者
