Eelent aus Array of TShape ereignis zuweisen

[Zacherl]

Erstmal so:
Shape_Array[a].onMouseDown:=MarkShape(TObject(ShapeArray(a))); Das gesammte Array halt nach der Suche durchgehen und allen Shapes das Event zuweisen.

Ich vermute mal MarkShape ist vom Typ TNotifyEvent (procedure Irgendwas(Sender: TObject)) ... also dann in dieser einfach wie folgt vorgehen:
TShape(Sender).BrushColor := clBlue; Eigentlich recht simpel, oder?
Florian