Percurso no xml apenas um

[Leao]

Olá, estou com problema mdfe, percuso:

UF Saída=MA, Destino=RN

Percurso=PI, PE, PB

Conforme fonte abaixo, e usando showmessage, processa normalmente, porém no .xml gravar somente o último(PB), onde estou errado?

   // TpcnProcessoEmissao = (peAplicativoContribuinte, peAvulsaFisco, peAvulsaContribuinte, peContribuinteAplicativoFisco);
   if TabGlobal.DEMITENTE.PROCEMI.Conteudo='0' then
   Ide.procEmi := peAplicativoContribuinte
   else
   Ide.procEmi :=peContribuinteAplicativoFisco;
   Ide.verProc := TabGlobal.DEMITENTE.VERPROC.Conteudo;  //'1.0';
   Ide.UFIni   := DDADOS.CUF.Conteudo;
   Ide.UFFim   := DDADOS.UFFIM.Conteudo;

  DDADOS_CARREGAMENTOS.First;
  while not DDADOS_CARREGAMENTOS.Eof do
  begin

   with Ide.infMunCarrega.Add do
    begin
     cMunCarrega := StrToInt(DDADOS_CARREGAMENTOS.CMUNCARREGA.Conteudo);  //3503208;
     xMunCarrega := DDADOS_CARREGAMENTOS.XMUNCARREGA.Conteudo; //  'ARARAQUARA';
    end;
   DDADOS_CARREGAMENTOS.Next;
  end;

         // Percurso.
         if not DDADOS_PERCURSOS.IsEmpty then
         begin
            with Ide.infPercurso.Add do
            begin
               DDADOS_PERCURSOS.First;
               while not DDADOS_PERCURSOS.Eof do
               begin
                  UFPer := DDADOS_PERCURSOS.UFPER.Conteudo;
//                  DHINIVIAGEM
 ShowMessage('percuso...: '+DDADOS_PERCURSOS.UFPER.Conteudo);
                  DDADOS_PERCURSOS.Next;
               end;
            end;
         end;
   //
   // Dados do Emitente
   //
   Emit.CNPJ  := TabGlobal.DEMITENTE.CNPJ.Conteudo;
   Emit.IE    := TabGlobal.DEMITENTE.IE.Conteudo;
   Emit.xNome := TabGlobal.DEMITENTE.XNOME.Conteudo;

.xml em anexo.

 

Obrigado,

Leão

 

 

21160103376307000180580010000000141000000145-mdfe.xml

[Leao]

Olá, descobrir o erro:

 

               DDADOS_PERCURSOS.First;
               while not DDADOS_PERCURSOS.Eof do
               begin

                           with Ide.infPercurso.Add do
                           begin
                           UFPer := DDADOS_PERCURSOS.UFPER.Conteudo;

                           end;                         

                     DDADOS_PERCURSOS.Next;
               end;
          

estava investido.

Obrigado,

Leão