Erro criando DANFE

[Adhelmar Rondon]

Olá

Fiz uma atualização, e ao gerar DANFE da NFe, esta dando erro na criação do diretório

 

a rotina abaixo, esta colocando o caminho errado

 

  function ImprimirDANFEPDFTipo(ANFe: TNFe): String;
  begin
    Result := DefinirNomeArquivo(self.PathPDF,
                                 OnlyNumber(ANFe.infNFe.ID) + '-nfe.pdf',
                                 Self.NomeDocumento);

    case Self.TipoDANFE of
      tiPaisagem:
        TfrlDANFeRLPaisagem.SalvarPDF(Self, ANFe, Result);
      tiSimplificado:
        TfrlDANFeRLSimplificado.SalvarPDF(Self, ANFe, Result);
      else
        TfrlDANFeRLRetrato.SalvarPDF(Self, ANFe, Result);
    end;
  end;

o self.PathPDF esta colocando o começo do caminho assim: DANFE\35230307237015000117550010000010111007455510-nfe.pdf, não esta colocando o caminho conforme foi informado no parâmetro, com isso da erro de criação do diretório