如何用Delphi7实现发送【带附件的E-mail】？

发送主要用两个控件：TIdMessage，TIdSMTP;
定义：
MailMessage: TIdMessage;
Mail: TIdSMTP;

实现举例：
procedure TForm1.Button1Click(Sender: TObject);
begin
if Mail.Connected then Mail.Disconnect;
Mail.Username := ''; //发件人用户名
Mail.Password := ''; // 发件人密码
Mail.Host := ''; //SMTP地址 这个地址要设置正确
Mail.Port := 25; //端口
Mail.AuthenticationType := atLogin;
MailMessage.Subject := 'test标题'; //标题
MailMessage.Body.Text := 'test内容'; //内容
MailMessage.From.Name := ''; //发件人姓名
MailMessage.From.Address := ''; //发件人地址
MailMessage.ReplyTo.EMailAddresses := ''; //发件人地址
MailMessage.Priority := TIdMessagePriority(1); //身份验证类型
TIdAttachment.Create(MailMessage.MessageParts, 'C:\Documents and Settings\Administrator\桌面\mail.txt'); //附件地址
MailMessage.Recipients.EMailAddresses := ''; // 收件人地址
MailMe