var
  MailMessage :TMailMessage;
begin

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


end.