Pierdo datos de memo.text a label.caption

[jgarcias2]

Ante todo gracias por contestar ecfisa,

pero lo que pasa no es tan sencillo como parece, lo que pasa que igual me explico mal.
Eso que me comentas ya lo sabia, lo que quiero decir es que al recibir los datos en str si pongo esto:

Código Delphi [-]
   label1.caption := label1.caption + str;

si pongo eso lo hace bien, pero sin embargo al poner esto no lo hace bien

Código Delphi [-]
   label1.caption := str;

a lo que me refiero con hacerlo bien es a poner lo que realmente recibo por el rs232.

Este es el evento:

Código Delphi [-]
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var str: string;
begin
    comport1.ReadStr(str, count);
    label1.caption := label1.caption + str;
end;

Saludos y gracias.