var MailSender :TEmailSender;
begin
  MailSender := TEmailSender.create;
  try
    MailSender.address:= 'borzov@solr.ru';
    MailSender.Subject := 'тест';
    MailSender.body := 'Это Тест';
    MailSender.smtphost := 'smtp.mail.ru';
    MailSender.smtpaddress := 'v.borzov@mail.ru';
    MailSender.smtpusername := 'v.borzov@mail.ru';
    MailSender.smtppassword := '';
    MailSender.smtpport := 25;
    MailSender.SendMail;
  finally
    MailSender.free;
  end;
end.