Щом като си има процедура, защо не я използваш. Ако е скрита, извади я на светло. Навремето правих един трик, при който се обръщах към private procedure като към public:


T1 = class(TObject)
private
procedure f1;
end;


T2 = class(T1)
public
procedure f1; overload;
end;


{ T1 }

procedure T1.f1;
begin
// ... some think source
end;

{ T2 }

procedure T2.f1;
begin
inherited;
end;

// ============
T2.Create.f1;


Така през обекта T2 извикваш процедурата f1

Никога не е късно да...