uses System.Web.Mail;

procedure SendAnEmail;

var
  MailMessage: System.Web.MailMessage;

begin
  MailMessage := MailMessage.Create;
  try
    with MailMessage do
    begin
      From := 'me@hotmail.com';
      &To := 'you@yahoo.com';
      Subject := 'Important news';
      Body := 'email body text here';

      BodyFormat := System.Web.Mail.MailFormat.Text;
    end; { with MailMessage }

    SmtpMail.SMTPSERVER := 'SMTPSERVER name';
    SmtpMail.Send(MailMessage)
  except
    on e : Exception do
      MsgResult.Text := 'Error occured!';
  end; { try }
end;