if not MSComm1.PortOpen then
begin
MSComm1.CommPort:=RadioGroup1.ItemIndex+1;
MSComm1.PortOpen:=True;
end;
if Not MSComm1.PortOpen then
MSComm1.PortOpen:=True;
MSComm1.Settings:='9600,n,8,1';
MSComm1.Output:=#13; //拨空号给MODEM,以便接收MODEM状态
MSComm1.Output:='atdt'+'0108766666'+#13;