Как я могу исправить закрытый метод класса Delphi?

Я прочитал эти вопросы и ответы

Как изменить реализацию (обход) внешне объявленной функции

Исправление вызова подпрограммы в delphi

, но я не могу понять, как исправить приватный методкласс, расположенный в другом подразделении.

Проверьте этот образец. Я хочу исправить процедуру Bar.

Unit ThidParty;
Interface
   Type
      TFoo =Class
        private
           procedure Bar;
       end;

Я думаю, какой ключ найти способ получить адрес приватного метода.

Итак, как я могу исправить закрытый метод класса Delphi?