Boleto Banco Brasil carteira 17

[emrinfo]

Boa noite a todos!

Tenho um cliente que usa o boleto do Banco do Brasil carteira 17 e variação da carteira 19, com o nosso nº com 17 posições (7 posições para nº do convenio e 10 faixa do nosso nº), só que toda vez que atualizo o fontes preciso alterar para funcionar com 17 posições. Tem alguma maneira diferente para ficar com 17 posições?

   if (Length(trim(NossoNumero)) > 10) and
      (((wTamConvenio = 6) and ((wCarteira = '16') or (wCarteira = '18'))) or
      ((wTamConvenio = 7) and (wCarteira = '18'))) then
      Result:= 17
   else if (wTamConvenio <= 4) then
      Result := 7
   else if ((wTamConvenio > 4) and (wTamConvenio < 6)) or
           ((wTamConvenio = 6) and ((wCarteira = '12') or (wCarteira = '15') or
            (wCarteira = '17') or (wCarteira = '18'))) then
      Result := 5
   else if (wTamConvenio = 6) then
      Result := 11
   else if (wTamConvenio = 7) then
      Result := 10;
 

Obrigado.