[Uniq!]

У меня проект есть для рассылки почты, который четыре месяца назад отключили в связи с изменением режима работы.
Сейчас попросили вернуть его к жизни с новым функционалом. Сам функционал я написал, но...
проект начал обваливаться на процессе авторизации:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

var   SmtpClient: TSmtpSend;   ...       with SmtpClient do     try       SmtpClient.TargetHost := 'smtp.yandex.ru';       SmtpClient.TargetPort := '465';       SmtpClient.UserName := 'login';       SmtpClient.password := 'password';       SmtpClient.FullSSL := true;         if SmtpClient.Login then         Button1.Caption := 'Logout'       else         raise Exception.Create('Ошибка выполнения команды LOGIN');     finally       Free;     end;

Ума не приложу в чём проблема. Я уже всё перепробовал и SSL и TSL подключать. Ничего не помогает.
У кого-нибудь есть пример рабочего кода, именно с Yandex'ом?