Pesquisar na Comunidade

Estou com problemas ao gerar remessa de boleto do banco itau. O número da conta está saindo zero, tanto no Header quanto nas linhas dos títulos, porém o dígito da conta estão saindo, e informo no mesmo momento tanto a conta quanto o seu respectivo dígito e também a agencia que também sai. Dados de agência : 0562 e Conta Corrente 40177-8 O que estou fazendo errado ?? Segue ilustração : Segue a forma como estou informando os dados : Result := true try with l_acbr_boleto do begin with Cedente do begin Nome := g_desc_empresa; CNPJCPF := OnlyNumber(g_cnpj_empresa); Logradouro := g_endereco_nf_empresa; CEP := OnlyNumber(g_cep_empresa); NumeroRes := g_numero_empresa; Complemento := g_complemento_empresa; Conta := l_client_CO0200.FieldByName('C_CONTA_BANCO').AsString; ContaDigito := l_client_CO0200.FieldByName('C_DIGITO_CONTA_BANCO').AsString; Agencia := l_client_CO0200.FieldByName('C_AGENCIA_BANCO').AsString; AgenciaDigito := l_client_CO0200.FieldByName('C_DIGITO_AGENCIA_BANCO').AsString; Modalidade := l_client_CO0200.FieldByName('C_VARIACAO').AsString; Convenio := l_client_CO0200.FieldByName('C_NUM_CONVENIO').AsString; CodigoCedente := l_client_CO0200.FieldByName('C_NUM_CONVENIO').AsString; end; with Banco do begin Numero := l_client_CO0200.FieldByName('C_NUM_BANCO').AsInteger; Nome := l_client_CO0200.FieldByName('C_NOME_BANCO').AsString; LayoutRemessa := c240; if l_client_CO0200.FieldByName('C_LAYOUT_CNAB').AsString = 'c400' then begin LayoutRemessa := c400; end; if l_tipo_cobranca = 'Banco do Brasil' then begin TipoCobranca := cobBancoDoBrasil; end else if l_tipo_cobranca = 'Bradesco' then begin TipoCobranca := cobBradesco; end else if l_tipo_cobranca = 'Itaú' then begin TipoCobranca := cobItau; end else if l_tipo_cobranca = 'Santander' then begin TipoCobranca := cobSantander; end else if l_tipo_cobranca = 'CEF' then begin TipoCobranca := cobCaixaEconomica; end else if l_tipo_cobranca = 'HSBC' then begin TipoCobranca := cobHSBC; end else if l_tipo_cobranca = 'Safra' then begin TipoCobranca := cobSafraBradesco; end else if l_tipo_cobranca = 'Sicred' then begin TipoCobranca := cobSicred; end else begin Result := False; end; end; end; except on E:Exception do begin MessageDlg('Erro Ao carregar as Configurações do Boleto nesta CONTA. '+#13#10+#13#10+ 'Erro: '+E.Message, mterror, [mbOk], 0); Result := False; end; end; os dados do banco de dados estão sendo informados corretamente, verifiquei debugando em run time ...