小弟之前写的一段代码可以的，不知为何现在不能用了。
procedure TForm2.Button1Click(Sender: TObject);
begin
  //定义程序与SMTP服务器的连接类型:atlogin为用户密码登录;atnone匿名登录
  IdSMTP1.AuthenticationType:=atLogin;
  IdSMTP1.Host:=form1.edit1.Text;      //输入服务器的地址
  IdSMTP1.Port:=25;              //连接服务器的端口号
  IdSMTP1.Username:=form1.edit3.Text;  //输入使用者的账号
  IdSMTP1.Password:=form1.edit4.Text;  //输入使用者的密码
  try
    IdSMTP1.Connect;       //尝试与服务器进行连接
  except
    showmessage('连接SMTP服务器失败!');    //连接服务器失败
    exit;
  end;
  //程序与服务器连接后,便可以发送信件到目的信箱
  try
    with IdMessage1 do  //传送信件基本信息
    begin
     body.Clear;     //清空文本
     body.Assign(memo1.Lines); //填写正文内容
     From.Address:=edit3.Text; //设置发送者的地址
     recipients.EMailAddresses:=edit1.Text;  //设置邮件接收者的地址
     subject:=edit2.Text;     //设置邮件的主题
    end;
    IdSMTP1.Send(IdMessage1);   //发送信件
  finally
    showmessage('您的信件已成功发送');
    IdSMTP1.Disconnect;         //断开连接
  end;
end;