TIDSMTP发送邮件时的奇怪提示!

TIDSMTP发送邮件时的奇怪提示! Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiNetwork/html/delphi_20061214202002126.html
我用Indy的TIDSMTP和TIDMessage发送电子邮件,但是出现了bad   secquence   of   command错误!我的代码是这样的:  
  procedure   TfrmEmail.SpeedButton7Click(Sender:   TObject);  
  var   Msg:   TIDMessage;  
  begin  
          Msg:=TIDMessage.Create(SMTP);  
          Msg.Clear;  
          Msg.Subject:=edtSubject.Text;     //subject   主题  
          Msg.Body.Assign(memoBody.Lines);   //body   内容  
          Msg.From.Text:=Trim(edtFrom.Text);     //寄件人  
          Msg.Recipients.EMailAddresses:=Trim(edtMailto.Text);   //收信人  
          SMTP.Host:='smtp.163.com';  
          SMTP.AuthenticationType:=atLogin;  
          SMTP.Username:='xaguobo';  
          SMTP.Password:='*******'     ;//这里我输入的是我的163邮箱的登陆密码  
          SMTP.Port:=25;  
          try  
              SMTP.Connect(-1);   //   我跟踪连接服务器成功  
              try  
                  SMTP.Send(Msg);  
                  ShowMessage('邮件已发送');  
              finally  
                  SMTP.Disconnect;  
              end;  
      except  
          on   e:   exception   do  
              ShowMessage('Mail   寄送失敗:'   +   e.Message);  
   
      end;  
   
  end;  
   
  请个位大虾指教!  
   
 

转载于:https://www.cnblogs.com/delphi2007/archive/2008/10/28/1321005.html