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 ......
我的程序中有一段更新某一条记录的语句：
var
id:=integer;
begin
id:=strtoint(edit1.text);//edit1.text的值已经取得;
...
...
...
adoQuery1.sql.add('update 计划清单表 set 计划日 ......
用DEDE打开一个DLL，找到需要的函数了，但是显示的都是汇编代码，看不懂，恳请高手驻足帮忙啊！
是一个KEYPRESS响应函数，功能是在按下enter后判断输入的字符，我想按照自己的需求跳转，但是
找不到位置，高手 ......
请问Delphi有树形控件吗？
怎样使用？
Ttreeview
treeview.items.addchild(nil(上级节点),'案发时发'(text));
raize 控件包里面有，csdn有下载的
查帮助TTreeView和TNode两个类
TTreeView ......
VC 控制台程序:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......
