Pesquisar na Comunidade

Olá estou configurando o acbr boleto para o banco bradesco com o fast report mas informo a titulo.carteira mas esse valor não esta sendo reconhecido, estou passando como string. Delphi xe7 alguém pode me ajudar? Segue o código: Titulo := ACBrBoleto1.CriarTituloNaLista; with Titulo do begin Vencimento := DsDados.DataSet.FieldByName('datavencimento').Value; DataDocumento := DsDados.DataSet.FieldByName('dataconta').Value; NumeroDocumento := DsDados.DataSet.FieldByName('idcr').Text; EspecieDoc := DsBoleto.DataSet.FieldByName('especiedoc').AsString; if DsBoleto.DataSet.FieldByName('aceite').AsString = 'SIM' then Aceite := atSim else Aceite := atNao; EspecieMod := 'R$'; EspecieDoc := DsBoleto.DataSet.FieldByName('especiedoc').AsString; DataProcessamento := Now; Parcela := DsDados.DataSet.FieldByName('parcela').value; TotalParcelas := DsDados.DataSet.FieldByName('totalparcelas').value; NossoNumero := DsDados.DataSet.FieldByName('nossonumero').Text; Carteira := DsBoleto.DataSet.FieldByName('carteira').Text; ShowMessage(Carteira); ValorDocumento := StrToCurr(DsDados.DataSet.FieldByName('valorconta').Text); ShowMessage(CurrToStr(ValorDocumento)); Sacado.NomeSacado := DsBoleto.DataSet.FieldByName('nomecompleto').AsString; Sacado.CNPJCPF := DsBoleto.DataSet.FieldByName('cpf').AsString; Sacado.Logradouro := DsBoleto.DataSet.FieldByName('endereco').AsString; Sacado.Numero := DsBoleto.DataSet.FieldByName('complemento').AsString; Sacado.Bairro := DsBoleto.DataSet.FieldByName('bairro').AsString; Sacado.Cidade := DsBoleto.DataSet.FieldByName('cidade').AsString; Sacado.UF := DsBoleto.DataSet.FieldByName('uf').AsString; Sacado.CEP := OnlyNumber(DsBoleto.DataSet.FieldByName('cep').AsString); ValorAbatimento := StrToCurrDef(DsDados.DataSet.FieldByName('valoracrecimo').text,0); LocalPagamento := 'Preferencialmente no Banco '+DsBoleto.DataSet.FieldByName('nomebanco').AsString;; ValorMoraJuros := StrToCurrDef(DsDados.DataSet.FieldByName('valorjuros').text,0); ValorDesconto := StrToCurrDef(DsDados.DataSet.FieldByName('valordesconto').Text,0); ValorAbatimento := 0; DataMoraJuros := StrToDateDef(DsDados.DataSet.FieldByName('datavencimento').Text, 0); DataDesconto := StrToDateDef(DsDados.DataSet.FieldByName('datavencimento').Text, 0); DataAbatimento := StrToDateDef(DsDados.DataSet.FieldByName('datavencimento').Text, 0); DataProtesto := StrToDateDef(DateToStr(DsDados.DataSet.FieldByName('datavencimento').Value+10), 0); PercentualMulta := StrToCurrDef(DsDados.DataSet.FieldByName('valormulta').Text,0); Mensagem.Text := 'Até o Vencimento Desconto '; OcorrenciaOriginal.Tipo := toRemessaBaixar; Instrucao1 := padL(trim('Menssagem 1'),2,'0'); Instrucao2 := padL(trim('Menssagem 2'),2,'0'); // ACBrBoleto1.AdicionarMensagensPadroes(Titulo,Mensagem); end;