Сделал ещё попытку, но тоже есть ограничение пока, представляет интерес сама процедура подмены callback функции методом класса. Жаль fpc её не переваривает