各位先進您好： 我是新手，我想寫一個SMTP認證密碼的程式應該要怎麼寫， 目前我想用ｉｎｄｙ元件撰寫，懇請各位幫忙。

Unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdSMTP, IdMessageClient, ComCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Edit1: TEdit; Label3: TLabel; Edit2: TEdit; Edit3: TEdit; Button1: TButton; Button2: TButton; IdSMTP1: TIdSMTP; StatusBar1: TStatusBar; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin //SMTP server 認證的方式 // IdSMTP1.AuthenticationType := atNone; //不需認證方式 IDSMTP1.AuthenticationType := atLogin; {Simple Login} IdSMTP1.UserId := Edit1.Text; //認證帳號 IdSMTP1.Password := Edit3.Text; //認證密碼 if Trim(string(Edit3.Text)) = '' then //判斷密碼為空白如果為空白就show 訊息 begin ShowMessage ('沒有輸入密碼'); exit; end; IdSMTP1.Host := Edit2.Text; //送信主機 IdSMTP1.Port := 25; //送信主機PORT IdSMTP1.Connect; //網路連結smtp主機 try IdSMTP1.Authenticate; ShowMessage('login OK'); //顯示成功 IdSMTP1.Disconnect; except on e : exception do //例外處理的 begin ShowMessage( 'login error' ); //錯誤訊息顯示 // ShowMessage( e.Message ); //錯誤訊息顯示 IdSMTP1.Disconnect; //關閉網路連結 end; end; end; procedure TForm1.Button2Click(Sender: TObject); begin Close; end; end.