Problema con recepcion de datos con comport

[Choclito]

Muchas gracias por el mensaje, no habia pensando en eso, hago los cambios y ahi les comento.
MI consulta es como actualizar la variable o el memo o edit para que en cada que lea los datos se actualice, al momento de lecturar me muestra lo siguiente:
Consultorio A|
y si vuelvo a lecturar me muestra:
Consultorio A|Consultorio A y asi va incrementando
No se donde colocar codigo para que lea datos y solo muestre
Consultorio A cada que leo
hice este cambio;

Código Delphi [-]
procedure TF_Principal.ComPortRxChar(Sender: TObject; Count: Integer);
var

  cadena,Str: String;
begin
edit1.text:='';
  ComPort.ReadStr(Str, count);
  edit1.Text:=edit1.Text+ Str;

end;

pero no hace que por mas que presione mas de dos veces solo me me muestre Consultorio A
Estare atento a sus comentarios amigos del foro

[Neftali [Germán.Estévez]]

Pues posiblemente puedes utilizar el carácter que te está "molestando" para eso, si es que no está definido expresamente para ello. ;-)

(1) Limpias el control Edit y comienzas a leer.
(2) Se trata de leer caracteres hasta que te llegue el "|";
(3) En ese momento acabas la lectura; Quitas el carácter y te quedas con el resto.

Cuando te vuelvan a pulsar, vuelves al paso 1.