Anexo de e-mail Incorreto

Boa Tarde,

Em minha aplicação estou utilizando um recurso de enviar um e-mail contendo varios anexos, só que os anexos estão sendo enviados como um arquivo .DAT.

* O Tipo de Arquivo que estou tentando enviar é .XML, Mas já tentei com outras extenções e tambem não funcionou.

Resumindo o e-mail chega mais o anexo vai errado.

Estou utilizando a seguinte codificação:


NO BOTÃO DO FORM PASSANDO PARAMETROS DE CONEXÃO

procedure TfrmGerarArquivos.btnEnviarArquivosClick(Sender: TObject);
var
  xLFuncoes:TFuncoes;
  xLUsuario      : string;
  xLSenha        : string;
  xLHost         : string;
  xLPorta        : string;
  xLtitulo       : string;
  xLRemetente    : string;
  xLDestinatario : string;
  xLTextoCorpo   : string;
  xLArqAnexos    : string;
begin
  xLFuncoes:=TFuncoes.Create;

  xLArqAnexos:= 'BSK02.xml'; +
                'BSK02.xml;' +
                'BSK03.xml;' +
                'BSK04.xml;' +
                'BSK05.xml;' +
                'BSK06.xml;' +
                'BSK08.xml;' +
                'BSK09.xml;' +
                'BSK10.xml;' +
                'BSK11.xml;' +
                'BSK12.xml;' +
                'BSK13.xml;' +
                'BSK85.xml';

  DMClientPrincipal.cdsK13EMLCFG.Active:=True;
  xLUsuario      := DMClientPrincipal.cdsK13EMLCFG.FieldByName('EmlUse') .Value;
  xLSenha        := DMClientPrincipal.cdsK13EMLCFG.FieldByName('EmlKey') .Value;
  xLHost           := DMClientPrincipal.cdsK13EMLCFG.FieldByName('EmlHost').Value;
  xLPorta          := DMClientPrincipal.cdsK13EMLCFG.FieldByName('EmlPort').Value;
  xLtitulo           := 'Envio de Sync Atualizado - '+ DateToStr(Now);
  xLRemetente  := UDMClientPrincipal.GEmailUser;
  xLDestinatario := DMClientPrincipal.cdsK13EMLCFG.FieldByName('EmlDest').Value;
  xLTextoCorpo   := 'Em anexo arquivo(s) para sincronização de dados em: '+ DateToStr(Now);{Memo1.Lines.Text;}
  xLArqAnexos    := xLArqAnexos;

  xLFuncoes.EnviarEmail(xLUsuario,xLSenha,xLHost,xLPorta,xLtitulo,xLRemetente,
                        xLDestinatario,xLTextoCorpo,xLArqAnexos);

  end;




A PROCEDURE DE ENVIO:

procedure TFuncoes.EnviarEmail(LUsuario, LSenha, LHost, LPorta, LTitulo,
                                LRemetente, LDestinatario,LTextoCorpo, LArqAnexos: String);
var
IdSMTP : TIdSMTP;
lMensagem : TIdMessage;

//Código para envio de mensagens
begin
  try
    try
      IdSMTP := TIdSMTP.Create(Application);

    try
      lMensagem := TIdMessage.Create(Application);

      idSMTP.Username := LUsuario;
      idSMTP.Password := LSenha;
      idSMTP.Host := LHost;
      idSMTP.Port := 25;
      idSMTP.Connect;

    try
      with lMensagem do
        begin
        Subject := LTitulo;
        From.Address := LRemetente;
        Recipients.EmailAddresses := LDestinatario;
        Body.Text := LTextoCorpo;


        TIdAttachmentFile.Create(MessageParts, LArqAnexos); // usado para anexar arquivos

        idSMTP.Send(lMensagem);
        MessageBox(0, 'E-mail enviado com Sucesso !!!', 'Envio de e-mail', MB_ICONINFORMATION or MB_OK);
    end;

    finally
      idSMTP.Disconnect;
    end;

    finally
      lMensagem.Free;
    end;

    finally
      IdSMTP.Free;

    end;

 // Close;

  except

MessageBox(0, 'Erro ao enviar e-mail'+#13+#10+'Verifique a conexão', 'Atenção', MB_ICONERROR or MB_OK);
  end;
end;


No aguardo,

Jorge