关于SMTP服务器验证用户ID的问题，请教高手（我有源代码啊）(100分)

大家好，小弟目前在写一个EMAIL群发软件，使用的是D5的nmsmtp控件，但是，这个控件并不
支持用户验证过程，所以总是提示Authetication failed(验证失败)，顾小弟在论坛上找到一段
BASE64ECODE的代码，加以验证，但是效果并不是很好，有的时候能够发出，有的时候不能发出
小弟百思不知其解，顾而请教各位大虾，代码如下：
nmsmtp也通过认证。不过麻烦点。

const BaseTable:string='ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/=';

var
AuthSucc:boolean;// 是否需要密码验证
function DecodeBase64(Source:string):string; //解码函数
function FindInTable(CSource:char):integer; //
function EncodeBase64(Source:string):string; //编码函数
implementation

{$R *.DFM}

function FindInTable(CSource:char):integer;
begin
result:=Pos(string(CSource),BaseTable)-1;
end;
////
function DecodeBase64(Source:string):string;
var
SrcLen,Times,i:integer;
x1,x2,x3,x4,xt:byte;
begin
result:='';
SrcLen:=Length(Source);
Times:=SrcLen div 4;
for i:=0 to Times-1 do
begin
x1:=FindInTable(Source[1+i*4]);
x2:=FindInTable(Source[2+i*4]);
x3:=FindInTable(Source[3+i*4]);
x4:=FindInTable(Source[4+i*4]);
x1:=x1 shl 2;
xt:=x2 shr 4;
x1:=x1 or xt;
x2:=x2 shl 4;
result:=result+chr(x1);
if x3= 64 then break;
xt:=x3 shr 2;
x2:=x2 or xt;
x3:=x3 shl 6;
result:=result+chr(x2);
if x4=64 then break;
x3:=x3 or x4;
result:=result+chr(x3);
end;
end;
/////
function EncodeBase64(Source:string):string;
var
Times,LenSrc,i:integer;
x1,x2,x3,x4:char;
xt:byte;
begin
result:='';
LenSrc:=length(Source);
if LenSrc mod 3 =0 then Times:=LenSrc div 3
else Times:=LenSrc div 3 + 1;
for i:=0 to times-1 do
begin
if LenSrc >= (3+i*3) then
begin
x1:=BaseTable[(ord(Source[1+i*3]) shr 2)+1];
xt:=(ord(Source[1+i*3]) shl 4) and 48;
xt:=xt or (ord(Source[2+i*3]) shr 4);
x2:=BaseTable[xt+1];
xt:=(Ord(Source[2+i*3]) shl 2) and 60;
xt:=xt or (ord(Source[3+i*3]) shr 6);
x3:=BaseTable[xt+1];
xt:=(ord(Source[3+i*3]) and 63);
x4:=BaseTable[xt+1];
end
else if LenSrc>=(2+i*3) then
begin
x1:=BaseTable[(ord(Source[1+i*3]) shr 2)+1];
xt:=(ord(Source[1+i*3]) shl 4) and 48;
xt:=xt or (ord(Source[2+i*3]) shr 4);
x2:=BaseTable[xt+1];
xt:=(ord(Source[2+i*3]) shl 2) and 60;
x3:=BaseTable[xt+1];
x4:='=';
end else
begin
x1:=BaseTable[(ord(Source[1+i*3]) shr 2)+1];
xt:=(ord(Source[1+i*3]) shl 4) and 48;
x2:=BaseTable[xt+1];
x3:='=';
x4:='=';
end;
result:=result+x1+x2+x3+x4;
end;
end;


procedure TForm1.NMSMTP1Connect(Sender: TObject);
begin
if nmsmtp1.ReplyNumber = 250 then
nmsmtp1.Transaction('auth login'); //开始认证
if nmsmtp1.ReplyNumber =334 then //返回值为334，让你输入用BASE64编码后的用户名
nmsmtp1.Transaction(EncodeBase64('aaaaa'));// 用户名aaaaa
if nmsmtp1.ReplyNumber =334 then // 返回值为334，让你输入用BASE64编码后的用户密码
nmsmtp1.Transaction(EncodeBase64('123456')); //密码为123456
if nmsmtp1.ReplyNumber =235 then
begin
AuthSucc:=true;
end;
end;
我的QQ：485557，希望高手朋友能够不吝赐教。

在SMTP控件的UserID属性中写入发件人E-mail的用户名就可以了

很好，，我没有添加验证的过程只是如karnor兄所有的加了个ID便百试不爽。
那是不是就是说不用添加验证的过程了。
那其他的人的那么多帖子都是干什么用的。
小弟还是不明白

小弟经多位高手指点,已经可以发出邮件去了,但不知道如何实现多线程发送邮件呢,最好有原吗
或者说下原理也可以啊

接受答案了.