[dr. F.I.N.]

Вашей реализации не вижу, но насколько знаю, мало того что библиотеки рядом лежат. Я конечно не специалист в инди, но разок пришлось решать. Вот пример из рабочего проекта (правда тут отправка почты, но не суть - главное ssl).

Код:

...
  id_SMTP := TIdSMTP.Create;
  id_SMTP.Host := 'smtp.yandex.ru';
  id_SMTP.Port := 25;
.....
  id_SSL := TIdSSLIOHandlerSocketOpenSSL.Create;
  id_SSL.Destination := id_SMTP.Host + ':' + IntToStr(id_SMTP.Port);
  id_SSL.Host := id_SMTP.Host;
  id_SSL.Port := id_SMTP.Port;
  id_SSL.DefaultPort := 0;
  id_SSL.SSLOptions.Method := sslvSSLv23;
  id_SSL.SSLOptions.Mode := sslmUnassigned;
  id_SMTP.IOHandler := id_SSL;
  id_SMTP.UseTLS := utUseExplicitTLS;
...
  try
    id_SMTP.Connect;
    if id_SMTP.Connected then
      id_SMTP.Send(id_MSG);
    id_SMTP.Disconnect;
  except
  ...
  end;
...
  id_SMTP.Free;
  id_SSL.Free;