com口操作的控件，向COM口发送数据指令(if query_sys_qtoptionsystem_value1.Value='com2' then
　 begin
mscomm2.commport:=2;
mscomm2.Settings:='2400,n,8,1';
　end else
　　if query_sys_qtoptionsystem_value1.Value='com1' then
　 begin
mscomm2.commport:=1;
mscomm2.Settings:='2400,n,8,1';
　end else
　　　if query_sys_qtoptionsystem_value1.Value='com3' then
　 begin
mscomm2.commport:=3;
mscomm2.Settings:='2400,n,8,1';
　end)