Cuantos ComPortRxChar?

[JoseFco]

Hola egostar.
Este es el codigo en realidad.

Código Delphi [-]
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
  Str: String;
begin
 ComPort.ReadStr(Str, Count);
AddHexString(Str,Memo.Lines);
if length(Str)>= 8 then
 if Str = 'Hi-LOGIC' then
showmessage('¡OK! ¡ES ORIGINAL!')
 else if Str = '01' then
Comport.WriteStr(#2#2)
 else
showmessage('¡HORROR!, ¡ES PIRATA!');
end;

Creo que aqui esta el problema.Yo tengo esa rutina que al comenzar recibe
algo que me envia el chip y si es = continua el programa.Creo que aqui esta la cosa.
Dejame estudiar eso ultimo que mandastes.
Un Saludo.