Delphi 2010 使用IdSMTP发送含附件的Email

程序原本在Delphi 2007下编译通过，现在在2010下有两个错误

  TidAttachment.Create(IdMessage.MessageParts,OutPath + '\'+ FormatDateTime('YYYYMMDD',frmMain.dtpDate.Date)+'.xls');   TidA