用Delphi7 IdSMTP及IdMessage组件开发邮件发送程序(100分)

各位高手，请问为什么我用Delphi 的Indy组件开发Email程序，当执行
IdSMTP1.Send(idMessage1);这一句就出现"authentitcation is required,smtp12,wKjAC7AraAdTdP5E5E3yBQ==.52902S3"的错误我用的是主机是SMTP.163.com用户名密码都有。

我自己顶

怎么没有人回答啊？都不会吗？
还是我说得不够详细啊？

authentitcation is required

看不明白这句吗？
idSMTP的 self.IdSMTP1.AuthenticationType 你给值了没有

to : qi_jianzhou
以经设置了IdSMTP1.AuthenticationType:=atLogin;
但又出现了另外一个提示："bad sequence of commands"
什么错误命令次序？

怎么啊高手！
高手就进来啊！

给你一段发送的代码,我已经做成产品,热销中,绝对可以
if (SMTP.AuthSchemesSupported.IndexOf ( 'LOGIN' ) <> -1) then
begin //服务器要求验证
SMTP.AuthenticationType:=atlogin;
end
else
begin //服务器不要求验证
end;
//开始验证;
try
if SMTP.Authenticate then //验证通过
//.....
SMTP.Send(msg);
except
showmessage('服务器验证失败);
SMTP.Disconnect;
exit;
end;

to:wutianlong
我用过你的代码还是不行啊！
以下是我写的代码,如有不正确的请指出改正：
procedure TForm1.Button1Click(Sender: TObject);
begin
try
IdSMTP1.Username:=edit1.Text;//登陆帐号
IdSMTP1.Password:=Edit2.Text;//登陆密码。
IdSMTP1.Host:=edit3.Text; //SMTP地址。
IdSMTP1.Port:=strtoint(edit4.Text);//端口号必须转换为整形。

if(IdSMTP1.AuthSchemesSupported.IndexOf('LOGIN')<>-1)then
begin
IdSMTP1.AuthenticationType:=atLogin;
end else begin
IdSMTP1.AuthenticationType:=atNone;
end;

IdSMTP1.Connect;
except
showmessage('连接失败,请重试!');
exit;
end;

IdMessage1.Body.Clear;//清楚上次文本内容.
IdMessage1.Subject:=edit5.Text;//发送标题.
IdMessage1.Body.Assign(Memo1.Lines);//发送内容
IdMessage1.From.Address:=edit6.Text;// 发送者地址.
IdMessage1.Recipients.EMailAddresses:=edit7.Text;// 收件人地址
try

if IdSMTP1.Authenticate then
begin
IdSMTP1.Send(idMessage1);
showmessage('发送成功') ;
end;
except
showmessage('发送失败,请重试!'); //代码就到这了.运行一下.
end;
IdSMTP1.Disconnect;
end;

多人接受答案了。