Ayudemos a utilizar Comport (Rs232)

[IVAND]

Hola a todos

Estoy tratando de utilizar los componentes Comport para la captura de datos de una balanza electronica me he encontrado con una serie de problemas he revisado los ejemplos que traen estos componentes funcionan de maravilla pero aun no consigo hacer lo mismo con mis programas.

Ejemplo utilizo el ejemplo Miniterm el cual es exactamente lo que quiero hacer pero en el evento de captura si no incluto un showmessage() el valor que envia no es el correcto he estado revisando y puede ser un problema de la cadena que envia el dato (estoy leyendo un articulo que encontre a la manera de tratar cierto tipo de cadenas ).

Espero que personas con un mayor conocimiento puedan apoyar con un granito de arena al fin de poder saber todos como se deben utilizar estos o otros componetes de forma practica

En espera de sus respuesta y sabiendo de su alto sentido de ayuda y apoyo quedo muy agradecido

Nota : codigo que utilizo en la captura del dato

Código PHP:

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 ;