sehr wertvolle Hinweise, danke! Besonders den mit TPaintBox will ich einarbeiten. Aber (aSender as TShape).Visible erzeugt den gleichen Fehler, wie TShape(aSender).Visible. Ich nehme aber nicht TTimer, der ist zu ungenau, sonder die
API Funktionen CreateTimerQueueTimer() nach Anlegen der Queue. Da kommt die Callback-Funktion mit dem übergebenen Zeiger nicht klar. Der zeigt offenbar nicht auf TShape, sondern ins Nirvana, oder?