Yo tengo esto funcionando, las caracteristicas del puerto tendrás que adaptarlas a la balanza (velocidad, etc).
Código Delphi
[-]
Uses CPort;
procedure TFormTpv.Timer2Timer(Sender: TObject);
Var Peso : String;
PesoNumero : Double;
Pesar : TComport;
begin
Try
Pesar.Connected:=False;
Pesar.Port:=Datos.PuertoBalanza; Pesar.Connected:=True;
Sleep(250);
Pesar.ReadStr(Peso,15);
Edit4.Text:=Peso;
Pesar.Close;
Edit2.Text:=Copy(Edit4.Text,3,8);
Edit2.Text:=CambiaEn(Edit2.Text,'.',',');
eCantidad.Value:=StrToFloat(Edit2.Text);
Timer2.Enabled:=False;
Except
eCantidad.Value:=0;
Timer2.Enabled:=False;
End;
end;
Saludos.