var
  MailMessage :Variant;
begin

    MailMessage := CreateOleObject('mailprocessor.mpmailmessage');
    if not MailMessage.srv.connected
    then begin
      mailMessage.srv.connectwp('autouser','1');
    end;

    if not mailMessage.srv.connected then
    begin
      createhinte('Ошибка, сервер не подключен');
      exit;
    end;

    MailMessage.id := 0; // инициализируем
    MailMessage.recipients := 'borzov@solr.ru';
    MailMessage.subject := 'тест';
    MailMessage.body := 'текст';
    MailMessage.save;


end.