Fórum Salvar Anexo de e-mail - O que está errado ????? #386365

Olá pessoal,   Estou tendo o seguinte problema. Ao salvar o anexo de um e-mail com extensão XML que se refere ao schema da NFE não é igual ao arquivo anexado original do EMAIL.   Estou utilizando delphi 2007 com o componnte INDY.. (TidMessage, TIDPOP3)   Código :     for j := 0 to pred(msgxml.MessageParts.Count) do
  begin
    if (msgxml.MessageParts.Items[j] is TIdAttachment) then
    begin
      xml := TIdAttachment(msgxml.MessageParts.Items[j]).FileName;
      tmp := foldertmp + '\' + xml;       if lowercase(ExtractFileExt(tmp)) = '.xml' then
       TIdAttachment(msgxml.MessageParts.Items[j]).SaveToFile(tmp);
    end;
  end;   NEste caso ele esta salvando no seguinte conteudo do XML o campo : <qCom>858..0000</qCom>.   Observa-se que ele está adicionando dois pontos [..] pois o arquivo original está somente com um ponto    O arquivo original esta com o seguinte conteudo :  <qCom>858.0000</qCom>   Verifiquei se existe algum caracter especial e não foi encontrado nada.   Testei enviando para mim mesmo o arquivo original, salvei o anexo e está tudo ok.   Isto não acontece com todos os XML. Mas quando ocorre o sofware da fazenda não abre devido a este erro.   O que será que fiz de errado ??   Abraços   george