Properties bei Ableitung verschieben

[Getox]

Ich schreibe einfach einen neuen Post, damit das neue Anliegen nicht übersehen wird, weil es nur ein Edit gewesen wäre:

Ich habe jetzt ein Edit, dass ich von TCustomEdit abgeleitet habe. Dieses soll einfach erstmal nur 2 winzige Änderungen haben und daran scheitert es schon:
- Höhe von 24
- Ctl3D auf False

Ich habe schon vieles Versucht und es hat einfach nie Auswirkungen.

Code:

type
  TTextEdit = class(TCustomEdit)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
    property Height default 24;
    property Ctl3D default False;
  end;

Code:

type
  TTextEdit = class(TCustomEdit)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
    property Height stored True default 24;
    property Ctl3D stored True default False;
  end;

Code:

type
  TTextEdit = class(TCustomEdit)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    constructor create(AOwner: TComponent);
  published
    { Published-Deklarationen }
    property Height default 24;
    property Ctl3D default False;
  end;

constructor TTextEdit.create(AOwner: TComponent);
begin
  inherited;
  Height := 24;
  Ctl3D := False;
end;

Code:

type
  TTextEdit = class(TCustomEdit)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    constructor create(AOwner: TComponent);
  published
    { Published-Deklarationen }
    property Height stored True default 24;
    property Ctl3D stored True default False;
  end;

constructor TTextEdit.create(AOwner: TComponent);
begin
  inherited;
  Height := 24;
  Ctl3D := False;
end;

Wo liegt mein Fehler oder was übersehe ich?