[[egostar]]

A ver si entendi lo que necesitas

Código Delphi [-]
var
  Form1: TForm1;
  Cuantos : Integer;

.......

procedure TForm1.ComPortRxChar(Sender: TObject; count:integer);
var
  Str: String;
begin
  ComPort.ReadStr(Str, Count);
  AddHexString(Str,Memo.Lines);
  if Str = 'Hi-LOGIC' then
     showmessage('¡OK! ¡ES ORIGINAL!')
  else begin
         if Str = '01' then begin
            case Cuantos of
                1: begin //Modo Leer;
                     Comport.WriteStr(#2#2)
                     //ProcedimientoLeer
                     Cuantos := 2;
                end
                2: begin //Modo Escribir
                     //ProcedimientoEscribir
                     Cuantos := 3;
                end
                3: begin //Modo Borrar
                     //ProcedimientoBorrar
                end;
             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;

Salud OS