Recoger Información de Balanza

[IVAND]

Hola a todos

Yo estoy intentando lo mismo pero utilizando un componente comport en su evento

procedure TMainForm.ComTerminalStrRecieved(Sender: TObject;
var Str: String);
begin
Showmessage('Dato '+z);
x:=copy(Str,1,2);

If x=#2',' Then // Indica el inicio de la cadena
Begin
y:=Str;
If Copy(str,17,1)=#$D Then //Indica el fin de la cadena
Begin
z:= Copy(y,3,14);
Edit1.Text:=z;
End
Else
End ;

end;

Capturo el dato que envia la balanza todo esta bien pero si quito el showmessage, el dato ya no es enviado correctamente ... asi que hasta ahi me he quedado si sabel algo me gustaria que puedan ayudarme

de antemano gracias