BAIXAR TITULO BANCO DO BRASIL VIA API

[scilas]

Alguem poderia me ajudar

estou usando o acbrboleto com delphi

consigo fazer as consultas dos titulos e consulta individual, me retorna tudo blz

mas nao consigo enviar uma instrucao para fazer a baixa

talvez estou fazendo algo errado, na verdade somente tenho esse demo do acbr e lá nao tem 

nenhum exemplo de baixa

o codigo a seguir é onde faz a inclusao de um titulo para cadastro ou consulta

 

  Titulo := dm.ACBrBoleto.CriarTituloNaLista;

  Titulo.Vencimento        := StrToDate(edtVencimento.Text);
  Titulo.DataDocumento     := StrToDate(edtDataDoc.Text);
  Titulo.NumeroDocumento   := edtNumeroDoc.Text;
  Titulo.EspecieDoc        := edtEspecieDoc.Text;

  if cbxAceite.ItemIndex = 0 then
     Titulo.Aceite := atSim
  else
     Titulo.Aceite := atNao;

  Titulo.DataProcessamento := Now;
  Titulo.Carteira          := edtCarteira.Text;
  Titulo.NossoNumero       := edtNossoNro.Text;
  Titulo.ValorDocumento    := StrToCurr(edtValorDoc.Text);
  Titulo.Sacado.NomeSacado := edtNome.Text;
  Titulo.Sacado.CNPJCPF    := OnlyNumber(edtCPFCNPJ.Text);
  Titulo.Sacado.Logradouro := edtEndereco.Text;
  Titulo.Sacado.Numero     := edtNumero.Text;
  Titulo.Sacado.Bairro     := edtBairro.Text;
  Titulo.Sacado.Cidade     := edtCidade.Text;
  Titulo.Sacado.UF         := edtUF.Text;
  Titulo.Sacado.CEP        := OnlyNumber(edtCEP.Text);
  Titulo.ValorAbatimento   := StrToCurrDef(edtValorAbatimento.Text,0);
  Titulo.LocalPagamento    := edtLocalPag.Text;
  Titulo.ValorMoraJuros    := StrToCurrDef(edtMoraJuros.Text,0);
  Titulo.ValorDesconto     := StrToCurrDef(edtValorDesconto.Text,0);
  Titulo.ValorAbatimento   := StrToCurrDef(edtValorAbatimento.Text,0);
  Titulo.DataMoraJuros     := StrToDateDef(edtDataMora.Text, 0);
  Titulo.DataDesconto      := StrToDateDef(edtDataDesconto.Text, 0);
  Titulo.TipoDesconto      := tdNaoConcederDesconto;
  Titulo.DataAbatimento    := StrToDateDef(edtDataAbatimento.Text, 0);
  Titulo.DataProtesto      := StrToDateDef(edtDataProtesto.Text, 0);
  Titulo.PercentualMulta   := StrToCurrDef(edtMulta.Text,0);
  Titulo.CodigoMoraJuros   := cjValorMensal;
  titulo.DataBaixa         := StrToDateDef(DateToStr(Now), 0);       ESTE CAMPO EU INCLUI PARA TENTAR ENVIAR A BAIXA

//  Titulo.OcorrenciaOriginal.Tipo := toRemessaRegistrar;

  Titulo.OcorrenciaOriginal.Tipo := toRemessaBaixar;      ESTE EU ALTEREI TAMBEM

  Titulo.Instrucao1        := trim(edtInstrucoes1.Text);
  Titulo.Instrucao2        := trim(edtInstrucoes2.Text);

  Titulo.QtdePagamentoParcial   := 1;
  Titulo.TipoPagamento          := tpNao_Aceita_Valor_Divergente;
  Titulo.PercentualMinPagamento := 0;
  Titulo.PercentualMaxPagamento := 0;
  Titulo.ValorMinPagamento      := 0;
  Titulo.ValorMaxPagamento      := 0;
  titulo.ValorPago              := StrToCurrDef(valorpago.Text,0);    E INCLUI AQUI O VALOR DO PAGAMENTO

 

entao criei um botao para fazer a baixa e inclui o seguinte

  Boleto     := dm.ACBrBoleto;
  Boleto.Configuracoes.WebService.Operacao := tpBaixa; // tpConsulta;
  Boleto.Enviar;

é igual ao botao de consulta

a diferenca é o tpBaixa que antes estava tpConsulta

 

por favor preciso de ajuda.

Agradeço desde já.