TFrmBase = class(TForm)
    procedure FormShow(Sender: TObject);
  end;
procedure TFrmBase.FormShow(Sender: TObject);
begin
   ShowMessage('base show');
end;

type
  TFrmBase14 = class(TFrmBase)procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

procedure TFrmBase14.FormShow(Sender: TObject);
begin
  inherited;
ShowMessage('child show');
end;

    class t0
    {
    public:
           int a;

        void fun() {a++;
        }
    };

    class t1 :public t0
    {
    public:

        //int a;

        void fun() {t0::fun();

            a = a * 2;
        }
    };

    t1 t;
    t.a = 2;
    t.fun();
    t.a = 2;