А вот рабочий твой пример
Program SMTP2test;
Uses smtp2;
Var i: integer;
from, rcpt, subj, text : string;
Begin
ShowForm;
i:=FormAddString('Начинаем отправку письма...');
smtp2.account('zakir.gimranov', 'пароль'); // Логин и пароль от MAIL.RU ящика
smtp2.auth_mode(1); // 1 - значит, что SMTP сервер требует авторизации
from:='
[email protected]'; // От кого
rcpt:='
[email protected]'; // Кому
subj:='Test msg'; // Заголовок письма
text:='Hi there! Hello dolly! Kisa kuku!'; // Тело письма
i:=smtp2.send('smtp.mail.ru', 2525, from, rcpt, subj, text); // Высылаем
Repaint; Delay(-1);
End.