Campo Local Pagamento fica como Não Definido?

[Mauricio Elias]

Olá Tudo Bem!

Estou tentando gerar Boleto de dois Bancos diferentes, então pra isso preciso mudar em tempo de execução qual o Banco que vai ser gerado o boleto.

O problema é que escolho o banco e seto a propriedade TipoCobranca, mas quando gera o boleto o campo Local de Pagamento sai como ''Não Definido"(segue a imagem em anexo).

Isso ocorre na primeira vez que é carregado o form onde é Gerado o Boleto! Se eu gerar novamente o boleto com aquele mesmo Banco ae sim sai corretamente escrito o nome do Banco. Mas se sair do executável e entrar de novo e entrar no form na primeira vez sai como Não Definido, mas se gerar novamente sem sair do executável ou trocar de Banco sai correto o nome.

Parece que ele carrega ACBrBoleto na primeira vez.

Estou setando o banco da seguinte forma:

               Vcodbanco:=IBQCnab.FieldByName('BANCOD').AsInteger;
                 case Vcodbanco of
                   1: begin //001
                           dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobBancoDoBrasil;
                      end;
                   4: begin //004
                           dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobBancoDoNordeste;
                      end;
                  21: begin //021
                           dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobBanestes;
                      end;
                  8,33,353: begin //033,353,008
                               dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobSantander;
                            end;
                  41: begin //041
                           dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobBanrisul;
                      end;
                  70: begin //070
                           dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobBRB;
                      end;
                  85: begin //085
                           dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobBancoCECRED;
                      end;
                  104:begin //104
                           dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobCaixaEconomica;
                      end;
                  237:begin //237
                           dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobBradesco;
                      end;
                  341:begin //341
                           dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobItau;
                      end;
                  389:begin //389
                           dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobBancoMercantil;
                      end;
                  748:begin //748
                           dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobSicred;
                      end;
                  756:begin //756
                           dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobBancoob;
                      end;
                  399:begin //399
                           dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobHSBC;
                      end;
                  422:begin //422
                           dmSISTEMA.ACBrBoleto.Banco.TipoCobranca:=cobBancoSafra;
                      end;
                 end;

O resto do boleto sai corretamente com as informações do banco escolhido, só o campo Local de Pagamento que notei essa diferença.

Tentei colocar o nome na propriedade nome do banco no ACBrBoleto assim:

 ACBrBoleto.Banco.Nome:=nomedobanco;

Mas não deu certo.

Como faço pra quando escolher o banco em tempo execução não precise executar duas vezes pra gerar corretamente o boleto?

Preciso setar alguma outro propriedade do ACBrBoleto?

Desde já Muito Obrigado pela Atenção e Ajuda!