[Erilar]

begin
  NMSMTP.Host:='smtp.mail.ru';
  NMSMTP.Connect;
      NMSMTP.PostMessage.FromAddress:= 'из дома';
      NMSMTP.PostMessage.FromName:='Отменя';
      NMSMTP.PostMessage.ToAddress.Text:='Mail@mail.ru';
      NMSMTP.PostMessage.Body.Text:='Отправка!!!';
      NMSMTP.PostMessage.Subject:='Сообщение';
      NMSMTP.SendMail;
  ShowMessage('Готово!');
end;