Delphi 7/2007, Indy 10.1.5, OpenSSL 0.9.8g

Проблема в том, что в событии OnVerifyPeer пост-проверки сертификата компонента IdServerIOHandlerSSLOpenSSL для обработки отдается только булева константа AOk - пройдена проверка или нет. А хотелось бы получать коды ошибок, описанные здесь - http://www.openssl.org/docs/apps/verify.html#.

Как я понимаю, в Indy для проверки используется функция SSL_CTX_set_verify из библиотеки OpenSSL (в хидере Indy -
), которой третьим параметром идет коллбэк-функция (в хидере Indy -  
при помощи которой, собственно, и можно вытащить код.

Впорос тем, кто, в отличие от меня, хорошо понимает структуру Indy. Как вытащить этот
в метод класса ? Возможно, кто-то уже вносил подобные изменения и может поделиться исходниками ...

При беглом взгляде на индейские исходники первое что приходит в голову - использовать своего наследника класса TIdSSLIOHandlerSocketOpenSSL.

В нем перекрыть вирт.метод StartSSL.
В перекрытом методе на время его выполнения подменить содержимое переменной IdSslCtxSetVerify указателем на собственную функцию с соотв.прототипом.