Прикрепить файл при отправке письма на почте

[xxbesoxx]

Здравствуйте ребята , Версия Indy : 10.5.9.0 и хочу прикрепить файл на почте

{$R *.dfm}
uses
  IdAttachmentFile ,ComObj;


procedure TForm1.Button2Click(Sender: TObject);
var
  SMTP    : TIdSMTP;
  msg     : TIdMessage;
  SSLOpen : TIdSSLIOHandlerSocketOpenSSL;
  Attach : TIdattachmentFile;
  aAttachmentFileFullName: string;

begin
  SMTP := TIdSMTP.Create(Application);
  SMTP.Host := 'smtp.mail.ru';
  SMTP.Port := 465;
  SMTP.AuthType := satDefault;
  SMTP.Username := 'xxxxxxxx@mail.ru'; // из какой почти 
  SMTP.Password := '*****';    /// Пароль эту почти 
  //--- Файл
  aAttachmentFileFullName:= 'D:\Moi_otchet.xlsx';

  //это необходимо использовать для SSL
  SSLOpen := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  SSLOpen.Destination := SMTP.Host+':'+IntToStr(SMTP.Port);
  SSLOpen.Host := SMTP.Host;
  SSLOpen.Port := SMTP.Port;
  SSLOpen.DefaultPort := 0;
  SSLOpen.SSLOptions.Method := sslvSSLv23;
  SSLOpen.SSLOptions.Mode := sslmUnassigned;

  SMTP.IOHandler := SSLOpen;
  SMTP.UseTLS := utUseImplicitTLS;

  msg := TIdMessage.Create(Application);

  msg.Subject := 'Название темы '; // Название темы
  msg.From.Address := 'xxxxxxx@mail.ru'; //  Мой майл
  msg.From.Name := 'Фио отправители';  // Фио отправители
  msg.Recipients.EMailAddresses := 'Получатель@gmail.com';    // Кому   мы отправляем ! Получатель
   // Кодировка
  msg.ContentType := 'text/plain'; //CharSet = UTF-8';
  msg.CharSet := 'UTF-8';
  //-------------
  msg.Body.Text := AnsiToUtf8('Привет ниничка как дела ? Все нормально у тебя ?');
  //-- работа со вложенными файлами
  if (aAttachmentFileFullName <> '') then
  begin
    Attach  := TIdAttachmentFile.Create(IdMessage1.MessageParts, aAttachmentFileFullName);
  end;
  //-----
  SMTP.Connect;
  if SMTP.Connected then
    begin
      SMTP.Send(msg);
      ShowMessage ('Сообщение отправлено');
    end else
      ShowMessage ('Не удалось отправить сообщение');
  SMTP.Disconnect();
  SMTP.Free;
  msg.Free;

end;

Скажите пожалуйста почему файл не отправляется ? Где я допускаю ошибка ?

[vlad1389]

Attach  := TIdAttachmentFile.Create(msg.MessageParts, aAttachmentFileFullName);

[xxbesoxx]

Разобрался . тему можно закрыть...