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

Delphi-Quellcode:

 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

[DeddyH]

Bei mir funktioniert das. Kannst Du mal ein Beispielprojekt anhängen?

[Array]

Habs angehängt gehe einfach im Menü Optionen auf alle...

[DeddyH]

Deine Arrays sind ungleich groß. Ich habe den Code nur kurz überflogen, aber Du setzt Tag ja anscheinend auf eine von 24 Möglichkeiten, hast aber nur 15 Farben. Schalt einmal die Bereichsprüfung ein, dann fliegen Dir auch Fehlermeldungen um die Ohren.