Cuantos ComPortRxChar?

[[egostar]]

Vamos a hacer una chapuza

Código Delphi [-]
    5: begin // Comando para escribir el chip(06 04 00 00 10 00)
           ComPort.WriteStr(#6#4#0#0#16#0);
           sleep(100);
           Count := 0; //Agregar esta variable Integer
           LineaMemo := Memo1.Lines[Count]; //Agregar esta variable String (LineaMemo)
           ComPort.WriteStr(Char(strtoint('$'+Copy(LineaMemo,1,2))));
           Delete(LineaMemo,1,3);
           Contador := 2;
     end;
//........
     else if Str = #83 then begin //83 decimal
              sleep(100);
              ComPort.WriteStr(Char(strtoint('$'+Copy(LineaMemo,1,2))));
              Delete(LineaMemo,1,3);
              if LineaMemo = '' then begin
                 LineaMemo := Memo1.Lines[Count+1];
              end;
              Inc(Contador);
           end;

Espero te funcione como espero

Salud OS