Wie schreibe ich eine Funktion?

[Namenloser]

Hallo, psd-sign.

TheShape: TComponentname; Was du hier deklarierst, ist nur der Name einer Komponente - nichts anderes als ein String. Der Name hilft dir hier aber nicht weiter, sondern du brauchst das Objekt selbst - vom Typ TShape.
Deshalb muss die Deklaration so lauten:
TheShape: TShape Wenn du jetzt noch die Zeile
TheShape:=TShape(Sender).Name; in
TheShape:=TShape(Sender); umänderst, müsste es eigentlich klappen!