Problema Arquivo Remessa Bradesco CNAB 400

[camargu]

 with ACBrTitulo do

   begin

      DigitoNossoNumero := CalcularDigitoVerificador(ACBrTitulo);


      aAgencia := IntToStrZero(StrToIntDef(trim(ACBrBoleto.Cedente.Agencia),0),5);

      aConta   := IntToStrZero(StrToIntDef(trim(ACBrBoleto.Cedente.Conta),0),7);

      aCarteira:= IntToStrZero(StrToIntDef(trim(Carteira),0), 3);


      {Pegando Código da Ocorrencia}

      case OcorrenciaOriginal.Tipo of

         toRemessaBaixar                         : Ocorrencia := '02'; {Pedido de Baixa}

         toRemessaConcederAbatimento             : Ocorrencia := '04'; {Concessão de Abatimento}

         toRemessaCancelarAbatimento             : Ocorrencia := '05'; {Cancelamento de Abatimento concedido}

         toRemessaAlterarVencimento              : Ocorrencia := '06'; {Alteração de vencimento}

         toRemessaAlterarNumeroControle          : Ocorrencia := '08'; {Alteração de seu número}

         toRemessaProtestar                      : Ocorrencia := '09'; {Pedido de protesto}

         toRemessaCancelarInstrucaoProtestoBaixa : Ocorrencia := '18'; {Sustar protesto e baixar}

         toRemessaCancelarInstrucaoProtesto      : Ocorrencia := '19'; {Sustar protesto e manter na carteira}

         toRemessaOutrasOcorrencias              : Ocorrencia := '31'; {Alteração de Outros Dados}

      else

         Ocorrencia := '01';                                          {Remessa}

      end;

Como faço pra indicar que a ocorrencia original que estou gerando e 01, não sei porque as minhas remessas estao saindo com Ocorrencia = 02 (Baixa), e o certo seria 01 (Remessa)... Mas ja olhei aqui e nao vi onde setar para Ocorrencia = 01;

Att,

Wilson Camargo

[camargu]

   Titulo := ACBrBoleto1.CriarTituloNaLista;


     with Titulo do

     begin

        Vencimento        := StrToDate(edtVencimento.Text);

        DataDocumento     := StrToDate(edtDataDoc.Text);

        NumeroDocumento   := edtNumeroDoc.Text;

        EspecieDoc        := edtEspecieDoc.Text;

        if cbxAceite.ItemIndex = 0 then

           Aceite := atSim

        else

           Aceite := atNao;

        DataProcessamento := Now;

        NossoNumero       := edtNossoNro.Text;

        Carteira          := edtCarteira.Text;

        ValorDocumento    := StrToCurr(edtValorDoc.Text);

        Sacado.NomeSacado := edtNome.Text;

        Sacado.CNPJCPF    := OnlyNumber(edtCPFCNPJ.Text);

        Sacado.Logradouro := edtEndereco.Text;

        Sacado.Numero     := edtNumero.Text;

        Sacado.Bairro     := edtBairro.Text;

        Sacado.Cidade     := edtCidade.Text;

        Sacado.UF         := edtUF.Text;

        Sacado.CEP        := OnlyNumber(edtCEP.Text);

        ValorAbatimento   := StrToCurrDef(edtValorAbatimento.Text,0);

        LocalPagamento    := edtLocalPag.Text;

        ValorMoraJuros    := StrToCurrDef(edtMoraJuros.Text,0);

        ValorDesconto     := StrToCurrDef(edtValorDesconto.Text,0);

        ValorAbatimento   := StrToCurrDef(edtValorAbatimento.Text,0);

        DataMoraJuros     := StrToDateDef(edtDataMora.Text, 0);

        DataDesconto      := StrToDateDef(edtDataDesconto.Text, 0);

        DataAbatimento    := StrToDateDef(edtDataAbatimento.Text, 0);

        DataProtesto      := StrToDateDef(edtDataProtesto.Text, 0);

        PercentualMulta   := StrToCurrDef(edtMulta.Text,0);

        Mensagem.Text     := memMensagem.Text;

**(Aqui)**    OcorrenciaOriginal.Tipo := toRemessaBaixar;

        Instrucao1        := padL(trim(edtInstrucoes1.Text),2,'0');

        Instrucao2        := padL(trim(edtInstrucoes2.Text),2,'0');


       // ACBrBoleto1.AdicionarMensagensPadroes(Titulo,Mensagem);

     end;

Ja resolvi, vou deixar a duvida pois mais gente pode ter o mesmo problema.

E na geração do boleto que eu seto a ocorrencia original.

Muito obrigado.