Vererbung, Create und co

[Marco Steinebach]

Hallo zusammen,
irgendwas essenzielles hab ich offensichtlich nicht verstanden.
Ich habe eine Basisklasse, von der weitere Formulare abgeleitet werden.

Code:

type
  TBaseClass = Class (TForm)
    constructor create (aOwner: TComponent); override;
  protected
    test: integer;
  end;

constructor TBaseClass.create (aOwner: TComponent);
begin
  inherited create (aOwner);
  test := -1;
end;

Nun habe ich in der von TBaseClass abgeleiteten Klasse ein onCreate definiert:

Code:

type
  TMainClass = Class (TBaseClass)
    procedure FormCreate (Sender: TObject);
end;

procedure TMainClass.formCreate (Sender: TObject);
begin
  // ausgabe von test??? sollte -1 sein
end;

Ich hätte gedacht, dass, vom Compiler, TMainClass.create aufgerufen wird, und das ruft, automatisch, TBaseClass.create auf, ist aber nicht so.
Wo liegt mein Denkfehler?

Viele Grüße
Marco