Delphi 多线程，弹出框中断问题
如题：
我的程序 Create 的时候 创建了N 个线程；这N个线程不停的在 监听N个COM口的数据；当分析数据时，有些时候要弹出application.messagebox 对话框判断 是否继续 执行线程，还是挂起线程。当多个线程同时弹出application.messagebox 对话框 时，程序就会死掉，没有反应了；当某个线程弹出的时候，是正常的；弹出框一多，程序就容易死；
有没有什么好方法可以避免死掉。
目前是 线程直接弹出 application.messagebox 对话框
如果直接通过 发送 消息 通知主界面 来弹出application.messagebox 对话框 的话，如果消息滞后了怎么办；线程不会立即停下来的
一个线程要弹出，把其他N-1线程都挂起，肯定是不合理的！别的还要工作的
关键是有异常的地方，要让管理员 知道，而且要主观进行判断
{{--
相关问答：
procedure DynArrayDelete(var A;elSize:Longint;index,Count:Integer);
var
len,MaxDelete:Integer;
P:PLongint; //4 个字节的长整形指针
begin
P:=PLongint(A);// 取的 A 的 ......
有什么构想讨论一下。
这类东西主要是人气和界面花哨,技术上没什么难点.
这我知道，那技术上的呢？有没有构想一下该怎么设计？主要是delphi自身能不能够完成，若同时大量客户登陆，反应速度如何等等。
引用
......
这个属性怎么用啊？
我想实现如下功能：在dbgrideh中按下箭头，如果当前指针停留在相应列上，就列出预设的几个选项，供用户选择（与combobox）类似
请问，用dropdownlist可否实现？
新手，帮你UP下 人气。
......
用DEDE打开一个DLL，找到需要的函数了，但是显示的都是汇编代码，看不懂，恳请高手驻足帮忙啊！
是一个KEYPRESS响应函数，功能是在按下enter后判断输入的字符，我想按照自己的需求跳转，但是
找不到位置，高手 ......
请问Delphi有树形控件吗？
怎样使用？
Ttreeview
treeview.items.addchild(nil(上级节点),'案发时发'(text));
raize 控件包里面有，csdn有下载的
查帮助TTreeView和TNode两个类
TTreeView ......
