百万火急，求高手改进邮件发送附件的代码 ( 积分: 10 )

我下面的代码是一段发送邮件的代码，但是现在出了一个很奇怪的问题，如果发送时不加附件，则对方可以收到我发的邮件，如果加了附件对方就收不到我发的邮件！
代码如下，望各位批点改进。各位可以将代码复制到本机试一下就知道了！[red][/red]
procedure TForm1.Button1Click(Sender: TObject);
var
filename: string;
begin
try
IdSMTP1.AuthenticationType := atLogin; //保证登录模式为Login
IdSMTP1.Host := 'SMTP.Sina.com.cn';
idSMTP1.Port := 25;
IdSMTP1.Username := 'zpselect';
IdSMTP1.Password := '********';
try
IdSMTP1.Connect();
IdSMTP1.Authenticate;
except
ShowMessage('连接服务器失败！');
Exit;
end;
filename := 'E:/temp/AAA.jpg; //需要添加的附件文件
TIdAttachment.Create(IdMessage1.MessageParts, filename); //添加附件(这一句有问题)
IdMessage1.From.Address := 'zpselect@Sina.com.cn';
IdMessage1.Recipients.EMailAddresses := 'woaiymx@126.com';
IdMessage1.Subject := '第一个邮件客户端';
IdMessage1.Body.Text := 'TTTTTTTTTTTTTT'; //此处为邮件正文
// IdSMTP1.Authenticate;
IdSMTP1.Send(IdMessage1); //向服务器发送邮箱
ShowMessage('发送成功');
finally
IdSMTP1.Disconnect; //断开与服务器的连接
end;
end;

问题我已经解决了，是版本的问题！

问题很奇怪，解决得也很奇怪，哈哈。。。