Problema no cálculo do Dígito Verificador do Nosso Número - Banco do Brasil

[automacaosamos]

uso essa função pra obter o digito do nosso numero do boleto do banco do Brasil

   function AchaDigitoNossoNumero(Titulo:TACBrTitulo;Banco:Integer):String;
    var
      ACBrBancoBrasil    : TACBrBancoBrasil;
    begin
      try
        case Banco of
            1 : begin
                  ACBrBancoBrasil := TACBrBancoBrasil.create(nil);
                  try
                    Result := ACBrBancoBrasil.CalcularDigitoVerificador(Titulo);
                  finally
                    FreeAndNil(ACBrBancoBrasil);
                  end;
                end;
        end;
      except
        on e: exception do gera_log(e.message);
      end;
    end;
 

outros bancos funciona, mas o banco do Brasil estou tendo uma exeção.

29232720000047403
Access violation at address 00E5B89C in module 'acbrserver.exe'. Read of address 00000040

Deveria retornar: 6

existe outra forma de obter esse digito verificado, as sugestões do forum todos vem sem o digito

obrigado

 

 

 

 

 

 

 

[automacaosamos]

 function AchaDigitoNossoNumero(Titulo:TACBrTitulo;Banco:Integer;ACBrBanco:TACBrBanco):String;
    var
      ACBrBancoBrasil    : TACBrBancoBrasil;
    begin
      try
        case Banco of
            1 : begin
                  ACBrBancoBrasil := TACBrBancoBrasil.create(ACBrBanco);
                  try
                    Result := ACBrBancoBrasil.CalcularDigitoVerificador(Titulo);
                  finally
                    FreeAndNil(ACBrBancoBrasil);
                  end;
                end;
        end;
      except
        on e: exception do gera_log(e.message);
      end;
    end;
 

Descupem, não fiquei atento ao envio do TACBrBanco

[BigWings]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.