Direkt auf die Farben zu gehen ist Quark.
Es gibt doch
Ampelphasen, siehe
hier.
Zusätzlich zur Phase 1 bis 4 kommt noch die Phase 0 hinzu (das bedeutet alles aus; bzw. Farbe Schwarz)
Delphi-Quellcode:
var
ampelphase : integer; // 0 bis 4
Bei jedem Klick auf den Button wird die Ampelphase um eins hochgezählt,
aber wenn die aktuelle Ampelphase schon = 4 ist springt man zurück auf 1.
Die Abfolge der Ampelphasen wäre also:
0 - 1 - 2 - 3 - 4 - 1 - 2 - 3 ...
Jetzt muss man nur noch der Ampelphase eine Farbe zuordnen und schon ist man fertig.
Ampelphase 2 wäre übrigens Rot & Geld ==> Orange.