Спасибо. В моем варианте тоже все процедуры вызываются. Мне надо чтобы параметры передавались. Если в вашем варианте изменить тип на TTestProc = procedure (i: Integer) of Object;
и ниже по коду поправить объявления процедур, то вызов последнего TestProc(11) после нажатия на кнопку приведёт к вызову TestProc2(i), где i не будет равняться 11.
|