comunicação Balança

[Caique Bendia]

Estou fazendo com que meu programa leia e puxe o peso de uma balança da Elgin com interface serial RS232,com o seguinte código:

//configurando balanca
 if DM.fdsCaixaMODELO_BALANCA.AsString > '0' then
    begin
     if frmPrincipal.acbrBal1.Ativo then
        frmPrincipal.ACBrBAL1.Desativar;

        frmPrincipal.ACBrBAL1.Modelo := TACBrBALModelo(StrToInt(DM.fdsCaixaMODELO_BALANCA.AsString));
        frmPrincipal.ACBrBAL1.Porta := DM.fdsCaixaPORTA_BALANCA.AsString;

        frmPrincipal.ACBrBAL1.Ativar;
    end;
    Except on E: Exception do
     begin
      ShowMessage('Erro na leitura da balança: ' + E.Message);
     end;
    end;
//fim da configuracao da balanca

//pegando peso
procedure TfrmPrincipal.LeBalanca;
Var TimeOut : Integer ;
begin
     TimeOut := 2000 ;
     ACBrBAL1.LePeso( TimeOut );
  
     if ACBrBAL1.LePeso > 0 then
     begin
     edtItemQtn.Text := FloatToStr(ACBrBAL1.LePeso);
     end;
  
end;
// fim pega peso

gostaria de saber se é necessário além dessas outras configurações(Quais?) da balança necessárias para que o peso seja lido e puxado para o campo que eu quero. Fiz testes e me parece que leu o peso mas não teve retorno algum,não deu mensagem de erro algum, e como não tenho um  emulador de balança não consigo fazer alguns testes.
Alguém poderia me ajudar, onde estou  errando ou deixando passar alguma coisa.

Dês de já agradeço. 

[Daniel Simoes]

Por favor analise o funcionamento do ACBrBAL, no projeto Demo:

\ACBr\Exemplos\ACBrSerial\ACBrBAL\Delphi