邮件发送问题，急，在线等 ( 积分: 0 )

我用的IdSMTP组件发送邮件
问题的我的服务器需要身份验证
请问在代码里怎么进行验证
一分都没了，请各位帮帮忙

我用的IdSMTP组件发送邮件
问题的我的服务器需要身份验证
请问在代码里怎么进行验证
一分都没了，请各位帮帮忙

申明，偶是菜鸟，刚学delphi不到2个月，不要骂我。。。
procedure TForm1.Button1Click(Sender: TObject);
var
id:string;
pas:string;
begin
id:='sdfsdf';
pas:='dddd' ;

if (Edit1.Text=id) and (Edit2.Text=pas) then
begin

close;
end else
begin

ShowMessage('请重新输入！');
Edit1.Clear;
Edit2.Clear;
Edit1.SetFocus;
end;

用indy吧，这个好像不能验证

function TCreatServer.Mail: Boolean; //发信
begin
Result := False;
with MailMessage do begin
Clear;
subject := 'test';
Body.Append('test test test');
from.Address := trim(Edit1.Text);
recipients.EMailAddresses := trim(Edit1.Text);
end;
with IdSMTP1 do begin
Host := trim(Edit2.Text);
Username := trim(Edit3.Text);
Password := trim(Edit4.Text);
end;
try
Caption := '正在连接服务器……';
IdSMTP1.Connect;
except
Caption := '失败！连接不了服务器！';
Exit;
end;
try
if (IdSMTP1.AuthSchemesSupported.IndexOf('LOGIN') <> -1) then begin
Caption := '正在连接进行身份验证……';
IdSMTP1.AuthenticationType := Atlogin;
if IdSMTP1.Authenticate then Caption := '身份验证成功！正在发送邮件……'
else Caption := '身份验证失败！'
end;
IdSMTP1.Send(MailMessage);
ShowMessage('发送邮件成功！请去邮箱确认一下你已经收到了测试信');
Result := True;
finally
IdSMTP1.Disconnect;
end;
end;

(IdSMTP1.AuthSchemesSupported.IndexOf('LOGIN') <> -1)
这个是判断stmp服务器是不是需要身份验证。
IdSMTP1.AuthenticationType := Atlogin;
这个是进行身份验证的过程。

function TCreatServer.Mail: Boolean;
是什么？在那里创建？
IDSMTP与NMSMTP是不是一个？不是的话在那里找到IDSMTP,他们有什么区别？它需要验证？

你是0分的帖子哦？！

接受答案了.