type
  TForm1 = class(TForm)
  IdSMTP1: TIdSMTP;
  IdPOP31: TIdPOP3;

var
  Form1: TForm1;
  M1: TidMessage;
  
...

begin
  with Form1 do
  begin
    IdSMTP1.Connect;
    M1:= TIdmessage.Create(IdSMTP1);
    with M1 do
    begin
      Subject := 'Тема письма';
      Recipients.EMailAddresses:= 'adres1@server';
      From.Text:= '"имя" <adres@server>';
      Body.Text:=Edit1.text; //текст который он введет в эдит
      CharSet:= 'Windows-1251';
      Encoding:= meMIME;
      TIdAttachmentFile.Create(M1.MessageParts, OpenDialog1.FileName);//крепим файл
    end;
    IdPOP31.Connected; // почтовый сервер может попросить POP3 идентификацию перед отправкой почты, поэтому коннектимся ещё и по POP3
    IdSMTP1.Send(M1);
    IdSMTP1.Disconnect;
    IdPOP31.Disconnect;
    FreeAndNil(M1);
  end;
end;