[Gott]

сейчас само чтение выглядит вот так:

procedure TForm1.BComPort1RxChar(Sender: TObject; Count: Integer);
var
S: String;
begin
BComPort1.ReadStr(S, Count);
if cbCRLF.Checked and (S[Length(S)]=#13) then
S := S + #10;
Memo1.Text := Memo1.Text+S;
end;