Erro Nenhuma Cc E Adicionada Ao Lote

[Marcoaureliotomaz]

Estou tentando enviar uma carta correção...mas o retorno é essa mensagem:erro nenhuma cc e adicionada ao lote

 

 

 CPFCNPJ := TiraMascara(DMGeral.TEmpresasCGC.AsString);

  lote := StrToInt(FormatDateTime('yymmddhhmm', NOW));;

  seqnfe := 1;

  seqeve := qryManagerNfe.fieldbyname('eventos').AsInteger+1;

  orgao := 24;

 

 

  Write(ArqTxt,'NFE.CARTADECORRECAO("[CCE]'+chr(13)+chr(10));

  Write(ArqTxt,'idLote=' + FormatFloat('0',lote) + chr(13)+chr(10));

  Write(ArqTxt,'[EVENTO' + FormatFloat('000',seqeve) + ']'+chr(13)+chr(10));

  Write(ArqTxt,'chNFe=' + Copy(qryManagerNfeChaveNfe.AsString,1,44) + chr(13)+chr(10));

  Write(ArqTxt,'cOrgao=' + FormatFloat('0',orgao) + chr(13)+chr(10));

  Write(ArqTxt,'CNPJ=' + CPFCNPJ + chr(13)+chr(10));

  Write(ArqTxt,'dhEvento=' + FormatDateTime('dd/mm/yy hh:mm:ss',Now) + chr(13)+chr(10));

  Write(ArqTxt,'nSeqEvento=' + FormatFloat('0',seqeve) + chr(13)+chr(10));

  Write(ArqTxt,'xCorrecao=' + RetiraAcentos( motivo.Text) + chr(13)+chr(10));

 

 

estou errando em algo ?