我在发送电子邮件（带附件）代码出现奇怪现象？

Question

 with IdMessage1 do
    begin
      Subject:=trim(Edit3.text);  //邮件主题
      if trim(Edit4.Text)<>'' then //附加附件
         TIdAttachment.Create(MessageParts, trim(Edit4.Text));
      Body.Clear;
      Body.Add(trim(memo1.Text));
      From.Text:=trim(Edit2.text);; //发件人地址
      ReplyTo.EMailAddresses:=trim(Edit2.text);;  //回复地址
      Priority := TIdMessagePriority(0); // 邮件优先级
      Recipients.EMailAddresses:=trim(Edit1.text);; //目的地址
    end;.............   发送代码段为什么第一次发送后，第二次总是将第一次发送的附件自动附加在后面

Answer 1

是不是这样好些      if trim(Edit4.Text) <>'' then //附加附件
        TIdAttachment.Create(MessageParts, trim(Edit4.Text))
      else
        //写一些清理的代码，清理附件