Besten Dank für die ANtwort.
Irgendwie gehts net.Kommt aber auch keine Fehlermeldung, weder beim compilieren noch im laufenden Programm.
2 Fragen dazu:
"AnyShape" ist ein künstliches Wort und kein reserviertes?!
Was bedeutet in "Copy(TShape(Sender).Name, 6, 2))" die 6 und die 2?
einen wunderschönen tag allen
)