C++Builder发送电子邮件

在窗口上放上两个控件：TIdSMTP和TIdMessage ，添加一个按钮，点击事件代码如下：

  IdMessage1->Recipients->EMailAddresses = "123456@163.com";//邮件接收者的信箱
  IdMessage1->From->Text = "hello@qq.com";                  //邮件发送者的信箱
  IdMessage1->Subject = "问题反馈";                          //邮件的标题
  IdMessage1->Body->Add("您好,想咨询一个问题");               //邮件内容
  //IdMessage1->CCList->EMailAddresses = "abc@qq.com";      //邮件的抄送地址,可以不用写
  if (IdSMTP1->Connected()) 
  {
      IdSMTP1->Disconnect();
  }
  IdSMTP1->AuthenticationType = atLogin;     //登录服务器类型选择
  IdSMTP1->Host     = "smtp.qq.com";         //SMTP服务器
  IdSMTP1->UserId   = "609329052";           //QQ邮箱的用户名
  IdSMTP1->Password = "czploabcdfoabdjf";    //邮箱的授权码
  IdSMTP1->Port = 25;                        //端口
  IdSMTP1->Connect();                        //连接SMTP服务器
  if (IdSMTP1->Authenticate())               //用户验证
  {
      ShowMessage("登录服务器验证成功!");
      IdSMTP1->Send(IdMessage1);             //发送邮件
      ShowMessage("邮件发送成功");
  }
  IdSMTP1->Disconnect();                     //中断连接SMTP服务器