Tipp:
Zitat:
procedure ani(Sender: TObject; Color: TAlphaColor);
Statt TObject kannst du auch TRectangle oder TShabe benutzen (somit auch für die anderen Figuren)
und mußt dann in der Methode nichts prüfen oder casten. (macht der Compiler beim Aufruf der Funktion)
TShape wegen dem .Fill,
der Rest (AnimateColor) wäre schon ab TFmxObject verfügbar (also für praktisch alle Komponenten)