Nossa, desculpe, realmente kkk
Vlu muito obrigado cara, vlu mesmo
Juliomar eu já coloco o Modelo da Balança atraves de um arquivo INI veja:
procedure TFrVendas.Timer1Timer(Sender: TObject);
var
portHandle: Integer;
begin
//Pegar Marca e Modelo da Balança
vArqUsa_Balanca := TIniFile.Create(extractfilepath(ParamStr(0))+'ArqUsa_Balanca.ini');
vMarcaBalanca:= vArqUsa_Balanca.ReadString('Balanca','Marca','');
vModeloBalanca:= vArqUsa_Balanca.ReadString('Balanca','Modelo','');
//
if acbrBal1.Ativo then
ACBrBAL1.Desativar;
// configura porta de comunicação
ACBrBAL1.Modelo := TACBrBALModelo(vModeloBalanca);
ACBrBAL1.Device.HandShake := TACBrHandShake(FrConfiguracao.DataSetConfigBalancaHandShaking.AsInteger);
ACBrBAL1.Device.Parity := TACBrSerialParity(FrConfiguracao.DataSetConfigBalancaParity.AsInteger);
ACBrBAL1.Device.Stop := TACBrSerialStop(FrConfiguracao.DataSetConfigBalancaStopBits.AsInteger);
ACBrBAL1.Device.Data := FrConfiguracao.DataSetConfigBalancaDataBits.AsInteger;
ACBrBAL1.Device.Baud := FrConfiguracao.DataSetConfigBalancaBaudRate.AsInteger;
ACBrBAL1.Device.Porta := FrConfiguracao.DataSetConfigBalancaPortaSerial.Value;
ACBRBAL1.Ativar;
end;
Mas eu resolvi, era só um pequeno ajuste no código do meu aplicativo, vlu cara