Ereignisse in vererbten Klassen

[TH3LL]

Hallo, ich habe eine Frage zum erstellen von Ereignissen in vererbten oder neuen Klassen.

Als Beispiel:

Ich erstelle mit folgendem Code 300 Objekte des Typs XShape, das nur ein Kind des Typs TShape ist, aber um eine beliebige Prozedur erweitert wurde:

Delphi-Quellcode:

type
  XShape= class(TShape)
    prozedur Beliebig(i:integer);
  end;

...

Delphi-Quellcode:

procedure Starten;
var x:integer;
Shapes:Array[1..300] of XShape;
Begin
  for x:= 1 to 300 do
    Begin
      Xshape:=TShape.Create(Form1);
      Xshape.Parent:=Form1;
    end;
end;

Wie kann ich jetzt ein Event definieren, das Ein Ereignis durch Interaktion mit einem der (ja während der Laufzeit erstellten) XShapes auslöst, wie zum Beispiel XShape[25]Click ?? Also quasi ein Allgemein vordfiniertes Event OnXShapeClick, das mit der Erstellung des XShapes gleich mit erstellt wird?

Ich brauche nämlich auf diese Weise 300 Onclick, Onmousemove, On... und und und..
Ich erstelle die dinger ja schliesslich zur Laufzeit um nicht alle 300 Manuell machen zu müssen

Wisst ihr rat?

Vielen dank schonmal!