[Komp. Entwicklung] onResize bei abgeleiteter TImage K.

[sCrAPt]

HiHo

Ich hab eine Komponente geschrieben die von TImage abgeleitet ist. Allerdings braucht sie noch ein internes onResize-Ereigniss. Ich hab deshalb auch in den Private (soll ja intern sein) folgendes eingefügt:

Delphi-Quellcode:

procedure TVerHorLabelResize(Sender: TObject);
property onResize;

Und mein Createkonstruktor (oder wie nennt man das?) sieht so aus:

Delphi-Quellcode:

constructor TVerHorLabel.Create(AOwner: TComponent);
begin
  inherited;
  OnResize := VerHorLabelResize(self);
end;

Leider kommt dann beim Debuggen ein

Debuggererror:

[Fehler] VerHorLabel.pas(56): Inkompatible Typen: 'TNotifyEvent' und 'procedure, untyped pointer or untyped parameter'

Wo liegt der Fehler und wie behebe ich ihn?

[edit=sakura] Titel einfach zuuuuuu lang Mfg, sakura[/edit]