[ambiorixml]

Hola muli, espero estes bien y gracias por los códigos suministrados, te comunico que realice los ajustes necesarios y aplique las pruebas de lugar, sin embargo, no he obtenido resultados, te dejo aqui los codigos a ver que hice mal.

Código Delphi [-]
procedure TFormTpv.TimerPesoTimer(Sender: TObject);
Var
     Peso : String;
     PesoNumero,eCantidad : Double;
     Pesar : TComport;
     liBanda:Cardinal;
begin
  Try
   // ***Le asigno los parametros seleccionados para la prueba de conecion y lectura de la balanza.
    Memo1.Lines.Add('INICIO'); //Para controlar los eventos ocurridos.
    Pesar.Connected:=False;
    Pesar.Port:=ComPort1.Port;
    Pesar.BaudRate:=ComPort1.BaudRate;
    Pesar.DataBits:=ComPort1.DataBits;
    Pesar.StopBits:=ComPort1.StopBits;
    Pesar.Parity:= ComPort1.Parity;
    Pesar.Connected:=True;
    Memo1.Lines.Add('CONECTADO'); //Para controlar los eventos ocurridos.
    Sleep(250);
    Pesar.ReadStr(Peso,15);
    Edit1.Text:=Peso;
    Pesar.Close;
    Edit2.Text:=Copy(Edit1.Text,3,8);
    //Edit2.Text:=CambiaEn(Edit2.Text,'.',',');
    eCantidad:=StrToFloat(Edit2.Text);
    Memo1.Lines.Add('LECTURA'); //Para controlar los eventos ocurridos.
    TimerPeso.Enabled:=False;// No lo detengo de momento para ver lo que hace.
    Memo1.Lines.Add('FIN');
  Except
     on E: exception do
     begin
     Memo1.Lines.Add('ERROR...'); //Para controlar los eventos ocurridos.
     Memo1.Lines.Add(e.message);
     eCantidad:=0;
    //TimerPeso.Enabled:=False;  // No lo detengo de momento para ver lo que hace.
    end;
  End;
end;

procedure TFormTpv.Button1Click(Sender: TObject);
begin
// Habilitado para poder hacer cambios en las paremetrizaciones del componente TCOMPORT.
TimerPeso.Enabled:= false;
ComPort1.ShowSetupDialog;
TimerPeso.Enabled:= true;
end;
end.

Intente capturar el error presentado y me arrojo esto:

Access violation at address 0045CCAF in module 'Lector_Peso.exe'. Read of address 00000001