串口通信(10)

procedure TForm1.Timer2Timer(Sender: TObject);beginif(caxun=true) thenbeginstatusbar1.Panels[0].Text:=listview1.Items.Item[sr].Caption+'查询成功';sr:=sr+1;if(sr>listview1.Items.Count-1) then sr:=0;endelse if(caxun=false) thenbeginif(listview1.Items.Item[sr].equipment_type='交流柜配电箱') then listview1.Items.Item[sr].ImageIndex:=2 else if(listview1.Items.Item[sr].equipment_type='56路交直流电源头柜') then listview1.Items.Item[sr].ImageIndex:=5 else if(listview1.Items.Item[sr].equipment_type='64路双路交流电源柜') then listview1.Items.Item[sr].ImageIndex:=11 else if(listview1.Items.Item[sr].equipment_type='100路电源头柜') then listview1.Items.Item[sr].ImageIndex:=8;statusbar1.Panels[0].Text:=listview1.Items.Item[sr].Caption+'查询失败';sr:=sr+1;if(sr>listview1.Items.Count-1) then sr:=0;//form1.ListView1.Items.Item[sr].Selected:=true;//form1.StatusBar1.Panels[3].Text:=inttostr(sr);end;timer2.Enabled:=false;end;CAXUN是接收标志，收到为TRUE，把timer2timer放在另一个timer1tiemr里面procedure TForm1.Timer1Timer(Sender: TObject);beginn4click(self);timer2.Enabled:=true;caxun:=false;end;各位帮我看一下，有什么错，运行时发送和接收是错开的，发送这个站点的查询命令，告警数据却反映到另一个站点上，第一个站点，第一轮还查询不到，我用的是轮询，隔5秒挨个查询一个站点。