Ampelschaltung

[NewDelphiBenutzer]

Also ich habe folgendes Problem. Es ist glaub ich ganz einfach zu löse, aber ich habe kein plan wie.
Ich soll ein Programm amchen mit einem einzigen Button. Das soll das Formular die Farbe wie eine Ampel ändern lassen. Also wenn ich raufklicke soll es erst grün, beim nächsten Klick gelb,beim nächsten Klick Rot,beim nächsten Klick wieder gelb, beim nächsten Klick Grün, und das soll immer wieder von vorne gehen wie halt ne richtige Ampel. Und wir amchen graden Verzweigungen also das mit If, then else und so sollte eigentlich ganz einfach sein. Kann mir jemadn irgendwie beim Quelltextr helfen oder den hier reinschreiben? wäre nett
lg Alex