用indy组件发送邮件附件的问题

Question

用indy组件发送两封带附件的邮件，第一封邮件的附件可正常接收，第二封会把第一封邮件的附件一并接收的，请教各位大侠，我的代码如下：
  //设置邮件服务器地址及端口呺　
          idsmtp1.Host:='mail.xxx.com';
          idsmtp1.Port:=25;
         //设置邮件内容
            idmessage1.From.Address:='[email protected]';
            idmessage1.Recipients.EMailAddresses:='[email protected]';
            idmessage1.Subject:='aaa';
            idmessage1.Body.Text:='aaaaaa ';
         //添加附件
            
            TIdAttachment.Create(idmessage1.MessageParts,'d:\1.rar');
         //发送邮件
        idsmtp1.Connect;
         idsmtp1.Send(idmessage1);
             TIdAttachment
         //断开邮件服务器连接
          idsmtp1.Disconnect;       //设置邮件服务器地址及端口呺　
          idsmtp1.Host:='mail.xxx.com';
          idsmtp1.Port:=25;
         //设置邮件内容
            idmessage1.From.Address:='[email protected]';
            idmessage1.Recipients.EMailAddresses:='[email protected];
            idmessage1.Subject:='eee';
            idmessage1.Body.Text:='eeeeeeee ';
         //添加附件
                        TIdAttachment.Create(idmessage1.MessageParts,'d:\2.rar');
         //发送邮件
        idsmtp1.Connect;
         idsmtp1.Send(idmessage1);
             TIdAttachment
         //断开邮件服务器连接
          idsmtp1.Disconnect;
现在情况是，当发送第二封邮件时，会把1.rar和2.rar一并发送的，如果我只是想发送2.rar，请问怎样处理

Answer 1

TIdAttachment有Create应该也有free........

Answer 2

你在给idmessage1赋值之前加上如下的语句:
idmessage1.MessageParts.clear;