uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
  IdMessageClient, IdSMTP, StdCtrls, idMessage, IdEMailAddress;

...

procedure TForm1.Button1Click(Sender: TObject);
var
  M: TIdMessage;
begin
  M := TIdMessage.Create(Form1);
  with M do 
begin
  Body.Add('Типа первая строчка собщения');
  From.Text := '"Рустик" <boris@uacity.com>'; //отправитель
  Recipients.Add;
  Recipients.Items[0].Text := '"Тест" <antohha@ukr.net>'; //Получатель
  Subject := 'Тема письма'; //Тема письма
  TIdAttachmentFile.Create(M.MessageParts,   OpenDialog1.FileName);//крепим файл
end;

with IdSMTP1 do 
begin 
  //авторизация
 AuthenticationType := atLogin; 
 Host := 'uacity.com'; //хост
 Username := 'boris'; // логин
 Password := '1234'; // пасс
 Connect();
end;
  if IdSMTP1.Connected then
  begin
    IdSMTP1.Send(M);
  end;
  IdSMTP1.Disconnect;
end;