Public Variable einer Klasse in Unterklasse verbergen

[TiGü]

Ich wüsste nicht wie, aber irgendwie klingt das eher nach einen Kraut-und-Rüben-Klassenkonzept.

Wieviele Unterklassen gibt es von der Basisklasse?
Wieviele Unterklassen kommen noch hinzu?
Wäre es eine Option, die Basisklasse nur als Feld in der neuen Klasse einzuführen?

Delphi-Quellcode:

type
  TBase = class
  public
    VarState: Integer;
  end;

  TYourNewClass = class
  private
    FBase : TBase;
  end;