Уже нашел в чем была проблема.
Просто данные выпуливались слишком быстро и SMTP сервер не успевал их разбирать. Добавление простой паузы решило всю проблему.
Тестировал на таком примере:
Program SMTP2test;
Uses smtp2;
Var i: integer;
from, rcpt, subj, text : string;
Begin
ShowForm;
i:=FormAddString('Начинаем отправку письма...');
smtp2.account('lib_test', '123456'); // Логин и пароль от MAIL.RU ящика
smtp2.auth_mode(1); // 1 - значит, что SMTP сервер требует авторизации
smtp2.set_pause(500); // Пауза при ожидании ответа от сервера
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.
Как видно из исходника, за ходом отправки теперь можно наблюдать из режима форм.