Delphi 多线程，弹出框中断问题
如题：
我的程序 Create 的时候 创建了N 个线程；这N个线程不停的在 监听N个COM口的数据；当分析数据时，有些时候要弹出application.messagebox 对话框判断 是否继续 执行线程，还是挂起线程。当多个线程同时弹出application.messagebox 对话框 时，程序就会死掉，没有反应了；当某个线程弹出的时候，是正常的；弹出框一多，程序就容易死；
有没有什么好方法可以避免死掉。
目前是 线程直接弹出 application.messagebox 对话框
如果直接通过 发送 消息 通知主界面 来弹出application.messagebox 对话框 的话，如果消息滞后了怎么办；线程不会立即停下来的
一个线程要弹出，把其他N-1线程都挂起，肯定是不合理的！别的还要工作的
关键是有异常的地方，要让管理员 知道，而且要主观进行判断
{{--
相关问答：
昨晚在Delphi数据库查询中遇到了一个疑惑。代码如下：
procedure TFormSearchAchievement.ComboBoxXYChange(Sender: TObject);
var
XY : string;
begin
XY := comboboxxy.Items[comboboxx ......
VC++ 中， &变量名。 是什么意思。 Delphi中 和他一样的符号 是哪个、？
大家都认为，C语言之所以强大，以及其自由性，很大部分体现在其灵活的指针运用上。因此，说指针是C语言的灵魂，一点都不为过。同时， ......
我的程序中有一段更新某一条记录的语句：
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.text的值已经取得;
...
...
...
adoQuery1.sql.add('update 计划清单表 set 计划日 ......
我的代码如下,怎么总提示连不成功:
type
GUID = record //申明调用RAS（创建VPN连接用）函数所需结构体
Data1: integer;
Data2: Shortint;
Data3: Shortint;
......
