Pierdo datos de memo.text a label.caption

[jgarcias2]

Hola,

os escribia para ver si me podeis ayudar, estoy intentando sacar datos de un memo en el cual escribo datos recibidos por el rs232, la cuestion es, los datos son escritos correctamente en el memo, pero cuando voy a escribirlos en un edit o un label pierdo caracteres. Os adjunto parte del codigo:

Código Delphi [-]
 
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
var str: string;
begin
  comport1.ReadStr(str, count);
  memo1.Text := memo1.text + str;  // Esta linea la hace perfecta
  label2.caption := str;    // Sin embargo en esta otra me pierde caracteres
end;

Como es posible ??? he realizado un monton de pruebas y no se ya por donde atacar el problema, a ver si me orientais un poco.

La cuestion que yo escribo caracteres en el memo y luego quiero recorrerlo para extraer ciertos números, si sabeis como podria hacerlo en el memo tambien me valdria.

Uso delphi 7,

Saludos y muchas gracias.