TIdAttachmentFile IdMessage1.MessageParts 发送多个附件时文件名出错


var
myIdAttachment:TIdAttachmentFile;
begin

///来自：
IdMessage1.Headers.Clear;
IdMessage1.From.Name:= '=?gbk?B?' + Base64Encode( VMail_RealName ) + '?=';

IdMessage1.From.Address:=VMail_Address; //'linghang2000999@163.com';

//主题：

mySubject:= edtMailSubject.Text;
if VMail_AddDateToSubject=1 then
mySubject:= mySubject + '(' + dateTimetoStr(now) + ')';

mySubject := '=?gb2312?B?' + mySubject + '?=';
IdMessage1.Subject := mySubject ;

//收件人邮箱地址：？
IdMessage1.Recipients.EMailAddresses:= AddRess ;


IdMessage1.ContentType:='multipart/mixed; charset=gbk';
IdMessage1.Encoding:= meMIME;

IdMessage1.Body.Clear;
IdHtml:=TIdText.Create( IdMessage1.MessageParts );
with IdHtml do //正文文本/Html
begin
ContentType:='text/html;charset=gbk';
ContentTransfer:='base64'; //7bit
Body.Clear;
body.add( MailContent );
end;


for I := 0 to lstAttach.Items.Count - 1 do
begin
sOneFile:= lstAttach.Items[i];
if FileExists(sOneFile) then
begin
TIdAttachmentFile.Create( IdMessage1.MessageParts, sOneFile);

//注意此行
idMessage1.MessageParts.Items[i ].FileName:= '=?gbk?B?' + Base64Encode( ExtractFileName( sOneFile) ) + '?=';
end;
end;
end


------------------------------

1、不要 “//注意此行”　，则：
所有文件名都不正确，以163.com接收到的邮件为例，文件名成了：
1 2 3 ...... 且都没有扩展名。
　　
OutLook接收到的也一样的有问题。

2、加入 “//注意此行”　，则：
第一个附件文件名完全正确，其它的仍然不正确

请教各位出错原因及解决方法。
我试过用什么　IdMessage1.MessageParts.Clear，要么不成功，要么报错（也可能是我的语句有问题）