delphi2005--indy10中邮件加载附件与以前不同了！求助！！！

Question

下面代码是网友的，面孔很熟悉！但我改装D2005后发现不能用了！tidattachment.Create方法的参数个数都不同了。同助如何绑附件呀！：）））
procedure TForm1.Button1Click(Sender: TObject);
begin
idmessage1.From.Address :='你要发送邮件的完整地址';
  idmessage1.From.Name :='标题';
  idmessage1.Recipients.EMailAddresses :='发送者地址';
  idmessage1.Subject :='副标';
  idmessage1.Body.Add('密码内容');
  tidattachment.Create(idmessage1.MessageParts,'c:\windows\desktop\ghy.txt');  idsmtp1.Host :='smtp.sohu.com';
  idsmtp1.Username:='***'; {如果你的SOHU邮箱是[email protected]这里就添111}
  idsmtp1.Password :='密码';
  idsmtp1.AuthenticationType :=atlogin;
  idsmtp1.Connect ;
  idsmtp1.Send(idmessage1);
  end;

Answer 1

有分都没人要！没人回拉倒－－我找到办法了，共享一下：
　　indy9.0->10.0时刚改的
１.　　9.0时
　tidattachment.Create(idmessage1.MessageParts,'c:\windows\desktop\ghy.txt');
2.　　10.0时
　TIdAttachmentFile.Create(IdMessage1.MessageParts,sPath+sAcc+'.txt');