代码如下：
procedure TForm1.Button2Click(Sender: TObject);
begin
  IdMessage1.Body.Add( ' 呵呵，感谢Edw@rd吧' ); //邮件正文件内容
  IdMessage1.From.text:='qimo1479@tom.com'; //发件人地址
  IdMessage1.Recipients.EMailAddresses :='XXX@XXX.com'; //收件人地址，这里改为你的EMAIL地址
  IdMessage1.Subject:='发送邮件就这么简单' ; //邮件标题
  IdMessage1.Priority := mphigh; //优先级，mphigh为最高级。

  IdSMTP1.Username :='XXX'; //服务器上的用户名
  IdSMTP1.Password :='XXX'; //服务器上的密码
  IdSMTP1.Host :='smtp.tom.com'; //服务器SMTP地址
  IdSMTP1.Port :=25; //服务器端口
  IdSMTP1.Connect;

  Idsmtp1.Send(IdMessage1); //发送邮件
  showmessage('发送成功');
end;

我是拷贝网上的~可是点击后出现错误，错误信息：
You are not authorized to send mail as <MAIL FROM:<qimo1479@tom.com>> , authentication is required