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