Hm, und bei einer unbekannten Anzahl an TShapes? Kann man dann mit array of TShape eine ShapeClick Methode mit n-TShapes durchführen?
(etwa so
Delphi-Quellcode:
for n:= 1 to AnzahlShapes do
begin
procedure TForm1.array[n]MouseDown (...);
begin
..
end;
end;