Проблема с почтовым клиентом на Паскале

[MisterDie]

Добрый день, уважаемые форумчане!

Есть простейшая программа по отправке писем:

const 
  SMTPServerName = 'smtp.mail.ru';

begin
  var fromSender := 'konstant-vm@mail.ru';
  var toReceiver := 'konstant-vm@mail.ru';
  var subject := 'Proba';
  var body := 'Hello!' + NewLine + 'I am robot!';
  var message := new MailMessage(fromSender, toReceiver, subject, body);
  
  var mailClient := new SmtpClient(SMTPServerName);

  mailClient.Send(message);
end.

(Если это так важно, то система программирования PascalABC.NET)

На строке

mailClient.Send(message);

выдает ошибку:

MailSend.pas(16) : Ошибка времени выполнения: Неправильная последовательность команд. Ответ сервера: Administrative prohibition -- authorization required.  Users in your domain are not allowed to send email without authorization.  See http://help.mail.ru/mail-help/mailer/popsmtp for details.

Помогите пожалуйста решить эту проблему. Заранее буду благодарен!

[Stilet]

Ищи свойства логина и пароля и заполни их.
Авторизация нужна.

[MisterDie]

Спасибо, погуглил -- решил свою проблему:

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

const
  SMTPServerName = 'smtp.mail.ru';

var
  body, mail, pass, toReceiver: string;  
  message: MailMessage;


{procedure WriteM(var b: string);
var r: string;
begin
assign(input,'str.html'); //текст который отправляется по почте
reset(input);
While Eof(input)<>True do
begin readln(r); b+=r; end;
close(input);
end;}

begin
  mail := 'логин';
  pass := 'пароль';
  toReceiver := 'konstant-vm@mail.ru';
  var mailClient := new SmtpClient(SMTPServerName, 25);
  mailClient.Credentials := new NetworkCredential(mail, pass);
  
  var fromSender := mail + '@mail.ru';
  var subject := 'Tracery';
  body := 'Hello!' + NewLine + 'I am robot!';
  
  //WriteM(body);
  
  message := MailMessage.Create(fromSender, toReceiver, subject, body); //2-ой параметр кому отправляется письмо
  //var data: attachment;
  //data := Attachment.Create('1.png', MediaTypeNames.Application.Octet);
  //message.Attachments.Add(data);
  //Message.IsBodyHtml := True;
  mailClient.Send(message);
  message.Dispose;
end.