Cuantos ComPortRxChar?

[JoseFco]

Hola egostar.

Bueno asi esta la cosa, despues de algunos errores al final copilo.

Código Delphi [-]
var
  Form1: TForm1;
  Cuantos : Integer;
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  begin
   case Cuantos of
   1: begin
ComPort.WriteStr(#2#2);
   Cuantos := 2;
 end;
   2: begin //Modo Escribir
     ComPort.WriteStr(#2#3);
                     //ProcedimientoEscribir
                     Cuantos := 3;
   end;
    3: begin //Modo Borrar
                     //ProcedimientoBorrar
    showmessage('Chip Borrado.. OK!')
 end;
 end;
 end;
 end;
 

procedure TForm1.Button1Click(Sender: TObject);
begin
 if not ComPort.Connected then
  ComPort.Open;
 comport.WriteStr(#4#1#0#1);
   Cuantos := 1;
end;
end.

Asi esta copilando sin errores y haciendo el trabajo que esperaba, esta es la
rutina para borrar la memoria de un AT89S51 y esta trabajando de maravillas.
Ya borre un chip que estaba programado y chequeado en otro programador que esta borrado.
Un paso mas en el proyecto.
100 puntos para el maestro egostar.