Probleme mit Farben von Shape

[Array]

Hallo Leute!

Ich hab ein Problem mit Farben und zwar hab ich in einem Array Farben hinterlegt:

Delphi-Quellcode:

Farbe[1] := clgreen;
Farbe[2] := clyellow;
Farbe[3] := clblue;
Farbe[4] := clmaroon;
Farbe[5] := clolive;

und ich habe ein Shape und wenn man auf dieses klickt dann soll das shape die Farbe seiner Tageigenschaft bekommen
 TShape(Sender).Brush.Color := Farbe[TShape(Sender).Tag]; jetzt folgendes Problem er zeigt mir einfach nur schwarz an also keine Farben obwohl ich mit showmessage und Haltepunkten schon den Inhalt der Variablen kontrolliert habe (sie stimmen überein) es wird einfach immer schwarz