2 altblitz >>>технически - сделано грамотно и без ошибок<<<<<<<
Извеняюсь за выражение, но тут пздц как криво и через жопу написано )
Ни единой проверки. (ни сокет не проверен на валидность, ни коннект)
Оформление кода - ужас. HtoNS - просто порадовало (Delphi дает свободу, но зачем на столько ей пользоваться)
Но главное: Кто будет считывать ответ сервака и анализировать ответ на предмет кодов ошибок.?
Вообще возьми любой снифер (тотже CommView ) и посмотри что передается по сети и что отвечает сервак(если лень делать считывание)
Также после посылки тела письма ставится CRLF[точка]CRLF
и потом желательно послать команда прощания с серваком.
а вот:
Sends('bG9naW4='+CRLF);
Sends('cGFzc3dvcmQ='+CRLF);
уже другое.
имхо, это генерируется random и для каждой пост-мессаги должны быть уникальными.
Если ты не уверен в чем то, то лучше не пиши этого вообще и не сбивай людей с толку. Потому что выдумывать у тебя получается плоховато. Или пиши это в болталке, там модер по строже и быстрее потрёт это.
P.S.
Письма без авторизации уходят - это всеголишь настройки smtp сервака. Ты для теста делай через яндекс или mail.ru или любой другой нормальный сервис и там ты сразу увидиш что без авторизации ничто никуда не уйдет.
Если юзаеш small http server для smtp то там есть галочка - разрешить/запретить анонимную отправку почты.
Также и в других может быть подобная опция