[Amigo888]

Program SMTP2test;
Uses smtp2;
Var i: integer;
from, rcpt, subj, text : string;
Begin
smtp2.account('zakir.gimranov', 'пароль');
smtp2.auth_mode(1);
i:=smtp2.send('smtp.mail.ru', 2525, 'zakir.gimranov@mail.ru', 'zakir.gimranov@yandex.ru', 'Test', 'Hi there! Привет!');
End.


100% рабочий пример лично проверил (версия MP 2.02)