Cuantos ComPortRxChar?

[JoseFco]

Esto es lo que tengo hecho.

Código Delphi [-]
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
if not ComPort.Connected then
ComPort.Open;
comport.WriteStr(#2#0);
end;
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
Str: String;
begin
 ComPort.ReadStr(Str, Count);
 if length(Str)>= 8 then
 ShowMessage('OK')
 else if Str = #1 then
 ComPort.WriteStr(#2#2)
 else
 ShowMessage('No puede comunicar');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
 if not ComPort.Connected then
  ComPort.Open;
 comport.WriteStr(#4#1#0#1);
end;
end.

Todo esta bien hasta que tengo que comparar otra vez el #1.

Un Saludo.