Probleme mit OnCreate Event

[Neutral General]

Naja ich hab ja kein Formular in dem Sinne..

Sagen wir ich habe sowas wie

Delphi-Quellcode:

TMyEvent = procedure of object; // nur als bsp.

TKlasse = class
private
  FOnCreate: TMyEvent;
  // bla
public
  // bla  
  constructor Create;
  property OnCreate: TMyEvent read FOnCreate write FOnCreate;
end;

constructor TKlasse.Create;
begin
  inherited Create;
  if Assigned(FOnCreate) then
    FOnCreate;
end;

So sieht das ganze ungefähr aus. Dann soll das ganze im Endeffekt so aussehn:

Delphi-Quellcode:

TDings = class(TKlasse)
  procedure CreateDings;
private
  //
public
  //
end;

procedure TDings.CreateDings;
begin
  ShowMessage('blaa');
end;

var Abc: TDings;
begin
  Abc := TDings.Create; // -> TDings.CreateDings wird ausgeführt (so stell ich mir das jedenfalls vor)
end;