const
  TxData: array[0..6] of Byte = ($FF ,$01, $00, $00, $00, $00, $01);
begin
  m_CtrlComm.put_Output(TxData);      // 发送数据
end;