function TComm.SetPort: Boolean;
var
  port  : LongInt;
  mode  : LongInt;
  hw, sw : LongInt;
  ret   : LongInt;
  tout  : LongInt;
begin
  Result := False;  port := m_CommData.Port;
  mode := m_CommData.Parity + m_CommData.ByteSize + m_CommData.StopBits;  if m_CommData.Hw  then
    hw := 3       { bit0 and bit1 }
  else
    hw := 0;  if m_CommData.Sw  then
    sw := 12        { bit3 and bit3 }
  else
    sw := 0;ret := sio_flowctrl(port, hw or sw);if (ret <> SIO_OK) then
  begin
  ....
  end;
那么 sio_flowctrl(port, hw or sw); 最后的流量控制设置的形式及状态?是不是 设置的是CTS 、RTS、Rx XON/XOFF 流量控制?