Leer codigo de barras y peso a travez de un puerto serie

[Wolfyx]

este es el codigo que tengo, te comento que para avanzar entre campos uso el enter o tab, es decir ambos...como te daras cuenta el problema les que si pasas un producto por el lector, la cadena se sigue concatenando...


procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
var
I : Word;
C : Char;
Cadena : String;
begin
cadena := '';
for I := 1 to Count do
begin
C := ApdComPort1.GetChar;
case C of
#0..#31 : //;
else cadena := cadena + C;
end;
end;
edit1.Text := edit1.Text + cadena;
end;

gracias por tu ayuda estimado AzidRain

perdon si no envio la respuesta de manera correcta, soy nuevo en el foro, y no se exactamente como funciona...