Eigenes TMemo

[Amateurprofi]

Ich möchte ein Memo und eine Listbox nebeneinander anzeigen.
In der Listbox will ich Daten zeigen, die auf dem Inhalt der Memo-Zeilen basieren.
Zusätzlich möchte ich, für die Listbox und das Memo unterschiedliche Schriftgrößen haben können.
Um sicherzustellen, daß die Listbox-Zeilen in der gleiche Höhe liegen, wie die der Memo-Zeilen, müssen die Zeilen des Memos die gleiche Höhe haben wie die der Listbox.
In der Listbox ist das mit ItemHeigth zu regeln.
Im Memo wird (wenn ich das richtig sehe) die Zeilenhöhe in der Prozedur AdjustHeight (von TCustomEdit) eingestellt.

Ich möchte nun so vorgehen :

Ein eigenes TCustomEdit von TCustomEdit ableiten und von diesem wiederum ein eigenes TCustomMemo ableiten, das im Prinzip identisch mit dem TCustomMemo aus StdCtrls sein soll.

Bis jetzt hab ich folgendes

Delphi-Quellcode:

unit Unit1;

interface

uses Classes, StdCtrls;

Type
   TxCustomEdit=Class(TCustomEdit)
   Private
      procedure AdjustHeight; override;  // Zeile 10
   protected
   public
      constructor Create(AOwner: TComponent); override;
   end;

implementation

constructor TxCustomEdit.Create(AOwner: TComponent);
begin
   inherited
end;

PROCEDURE TxCustomEdit.AdjustHeight;
begin
   inherited;
   Heigth:=Height+3;
end;

end.

Und gleich am Anfang laufe ich "auf den Schrubber"

[Fehler] Unit1.pas(10): E2137 Methode 'AdjustHeight' nicht in Basisklasse gefunden.

Jetzt frage ich mich warum AdjustHeight nicht in der Basisklasse (TCustomEdit) gefunden wird, obwohl sie darin enthalten ist.

Was mache ich falsch ? Und : Weiß jemand eine simplere Möglichkeit, die Zeilenhöhe eines TMemo einzustellen ?