Delphi VaComm串口使用（TMS Async32控件）

断开连接：

VaComm1.Close;

连接：

VaComm1.Baudrate := TVaBaudrate.br115200;
VaComm1.Parity := TVaParity.paNone;
VaComm1.Databits := TVaDatabits.db8;
VaComm1.Stopbits := TVaStopbits.sb1;
VaComm1.PortNum := 10;
VaComm1.Open;

发送数据：

var
    RawData : TBytes;
RawData[0] := $11;
RawData[1] := $22;
RawData[2] := $33;
RawData[3] := $44;
VaComm1.WriteBuf(RawData[0], 4);//发送0x11,0x22,0x33,0x44

接收数据：

var
    c : Char;
VaComm1.ReadChar(c);