[Uniq!]

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

Код:

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'ом?