Как программно отправить письмо на электронную почту

uses System.Net.Mail, System.Net, System.Net.Mime,crt;

uses System.Net.Mail, System.Net, System.Net.Mime;
 
const 
  SMTPServerName = 'smtp.mail.ru';
  
var body, mail, pass, toReceiver: string;  
    message: MailMessage;
 
begin
  mail:='Логин';
  pass:='Пароль';
  var mailClient := new SmtpClient(SMTPServerName,25);
  mailClient.Credentials := new NetworkCredential(mail, pass);
  var fromSender := mail + '@mail.ru';
  var subject := 'Тема письма';
  toReceiver:='Кому письмо';
  body:='Само письмо'; 
  message := MailMessage.Create(fromSender, toReceiver, subject, body); //2-ой параметр кому отправляется письмо
  Message.IsBodyHtml := False;
  mailClient.Send(message);
  message.Dispose;
end.

 mail:='Логин';//здесь свой логин, то что в адресе до @
  pass:='Пароль';//пароль к своему ящику в mail.ru
  var subject := 'Тема письма';//это текст сообщения
  toReceiver:='Кому письмо';//ввести адрес получателя, можно свой, получите письмо