用delphi做串口连接别的仪器接收数据的时候,为什么一打开 COM 端口,程序就象死机一样?(10分)

在我的计算机中程序能正常运行和打开端口,到客户的计算机上程序也能正常运行,这说明 MScomm 组件的注册应该是没有问题的,但只要一打开端口,整个程序就像死机一样.于是我怀疑是串口的问题,结果客户用串口鼠标,发现能正常使用,用超级终端接收数据,也正常.总是插不出原因.
后来客户换了一台配置和系统完全一样的计算机,是同一批买的,测试我的程序又正常了,端口能顺利打开,请问先前的那个问题出来哪里阿

以前我们用串口卡的时候也有这种情况，CPU占用率99%，估计是硬件问题，和程序没太大关系。

ds2.Active:=false;
ds2.commandtext:='select max(pid) as maxid from spic';
ds2.Active:=true;
maxid:=ds2.fieldbyname('maxid').AsInteger+1;
ds2.Active:=false;
ds3.Close;
ds3.CommandText:='select * from spic';
ds3.Open;
ds3.Edit;
ds3.Append;
ds3lei.Value:=lei;
ds3name.Value:=nm;
ds3pid.Value:=maxid;
ds3pd.LoadFromFile(path1+'lrl.lrl');
ds3bmp.LoadFromFile(path1+'lrl.bmp');
ds3.Post;
打开用ds3pd.savetoFile(path1+'lrl.lrl');