Com порт, отключить приемник на время записи

[casus]

Всем добра.
Сделал электронную поделку и подключил ее к компу по одному проводу.
Грубо говоря rxd подключен к txd. Связь между поделкой и компом наладил, но в отличии от поделки не могу на компе отключать приемник во время передачи, в итоге комп принимает то что передает. Пока решил вопрос программно - принимаю данные и удаляю их, но это неправильно. Как решить этот вопрос по фэншую, т.е. не принимать.

var
    CurrentState : TComStat;
    ErrCode,
    RealRead     : Cardinal;
    Signaled,
    Mask         : DWORD;
    BytesTrans   : DWORD;
    Count        : DWORD;
    ResiveStr    : string;
    Source       : string;
  begin
    while ReadyToConnect do begin
      FillChar(Ovr, SizeOf(Ovr), 0);
      Ovr.hEvent:= CreateEvent(nil, True, True, nil);
      SetCommMask(CommHandle, EV_RXCHAR);
      WaitCommEvent(CommHandle, Mask, @Ovr);
      Signaled:= WaitForSingleObject(Ovr.hEvent, INFINITE);
      if (Signaled  = WAIT_OBJECT_0) then
        if GetOverlappedResult(CommHandle, Ovr, BytesTrans, False) then
          if (Mask and EV_RXCHAR) <> 0 then
            begin
            ClearCommError(CommHandle, ErrCode, @CurrentState);
            Count:= CurrentState.cbInQue;
            if TxEn then
              begin
                if Count >= TxSize then
                  begin
                  RxBuf:='';
                  ReadFile(CommHandle, RxBuf, Count, RealRead, @Ovr);
                  TxEn:= false;
                  Source:='';
                  end
              end else
                if Count > 0 then
                  begin
                  RxBuf:='';
                  ReadFile(CommHandle, RxBuf, Count, RealRead, @Ovr);
                  Count:=0;
                  ResiveStr:='';
                  while RealRead > Count do
                    begin
                    ResiveStr:=ResiveStr+' 0x'+IntToHex(Ord(RxBuf[Count]),2);
                    Inc(Count);
                    end;
                  Log('rx_  '+ResiveStr+'     '+RxBuf);
                  Source:=RxBuf;
                  end;
              end;
         Form1.Memo1.Lines.Add(Source);
    end;
end;

TxEn - глобальная переменная, тру пока идет передача.

[Pavia]

Задаём в настройках ручное управление FlowCotrol и через SetCommMask выставляем и снимаем фаг EV_BREAK. Он влияет только на вход.

[casus]

Спасибо огромное. А пример можно? Или ссылку где почитать?
Просто кажется перепробовал всё. Даже пробовал очищать событие приема через ClearCommError(CommHandle, ErrCode, @CurrentState);
И очищать количество байтов в приемнике CurrentState.cbInQue:=0; А приемник продолжал слушать пока открыт порт, и запоминал..