Как создать почтовую программу?(можно даже без окна)

// Исправьте имя SMTP-сервера SMTPServerName и адрес получателя toReceiver! 
uses System.Net.Mail;
 
const 
  SMTPServerName = 'mail.spark-mail.ru';
 
begin
  var fromSender := 'ivanov@mail.ru';
  var toReceiver := 'petrov@yandex.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.

var mailClient := new SmtpClient(SMTPServerName, port_number);
mailClient.Credentials := new System.Net.NetworkCredential('username', 'pass');
// возможно понадобится еще и ssl, при защищенном соединении:
mailClient.EnableSsl := true;

uses System.Net.Mail;
 
const 
  fromName   = 'здесь пишем имя отправителя';
  fromEMail  = 'адрес отправителя@yandex.ru';
  password   = 'пароль аутентификации';
  SMTPServer = 'smtp.yandex.ru';
  portNumber = 587;
  
  toName  = 'имя получателя';
  toEMail = 'его электронный адрес@mail.ru';
  Attach  = 'c:\Matrix.txt';
  
  theme = 'Письмо с приветом';
  text  = '<h2>Письмо про то, что:</h2>' +
  '<p>Я пишу тебе с приветом,</p>' +
  '<p>Рассказать, что солнце встало,</p>' +
  '<p>Что оно горячим светом</p>' +
  '<p>По чему-то там затрепетало…</p>' +
  '<p>&nbsp;&nbsp;&nbsp;&nbsp;<i>Двенадцать стульев (Илья Ильф, Евгений Петров)</i></p>';
  
 
begin
  try
    var fromAddr := New MailAddress(fromEMail, fromName);
    var toAddr   := New MailAddress(toEMail  , toName  );
    var message  := New MailMessage(fromAddr , toAddr  );
    with message do
      begin
        Subject    := theme;
        Body       := text;
        IsBodyHTML := True; // если text с разметкой
        Attachments.Add(New Attachment(Attach));
      end;
      
    var smtp := New SmtpClient(SMTPServer, portNumber);
    with smtp do
      begin
        EnableSSL   := True; // использовать SSL
        DeliveryMethod := SmtpDeliveryMethod.Network; // по сети на smtp
        UseDefaultCredentials := False; // не отправлять учётные данные вместе с запросом
        Credentials := New System.Net.NetworkCredential(fromEMail, password);
        Send( message );
      end;
  
    WriteLn('Отправлено!');
  except
    WriteLn('Не удалось отправить письмо...');
  end;
end.