Delphi 多线程，弹出框中断问题
如题：
我的程序 Create 的时候 创建了N 个线程；这N个线程不停的在 监听N个COM口的数据；当分析数据时，有些时候要弹出application.messagebox 对话框判断 是否继续 执行线程，还是挂起线程。当多个线程同时弹出application.messagebox 对话框 时，程序就会死掉，没有反应了；当某个线程弹出的时候，是正常的；弹出框一多，程序就容易死；
有没有什么好方法可以避免死掉。
目前是 线程直接弹出 application.messagebox 对话框
如果直接通过 发送 消息 通知主界面 来弹出application.messagebox 对话框 的话，如果消息滞后了怎么办；线程不会立即停下来的
一个线程要弹出，把其他N-1线程都挂起，肯定是不合理的！别的还要工作的
关键是有异常的地方，要让管理员 知道，而且要主观进行判断
{{--
相关问答：
这个是拦截按键消息并测试是否为ENTER键。
begin
case wParam of
WM_KEYDOWN:
fEatKeystroke := (p.vkCode = VK_RETURN);
& ......
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 个字节的长整形指针
begin
P:=PLongint(A);// 取的 A 的 ......
我的程序中有一段更新某一条记录的语句：
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;
......
