Delphi-Quellcode:
if form1.color=clgreen then
form1.color:=clyellow
else
form1.color:=clgreen;
if form1.color=clyellow then
form1.color:=clred;
Oben setzt du es auf gelb, wenn es grün ist. Direkt da drunter gehst du auf rot, wenn es gelb ist. Du springst also immer von gelb auf rot. Wenn man seinen Code etwas strukturiert wie in diesem Post fällt sowas auch auf. Und nimm dir die Anregungen hier doch bitte etwas zu Herzen, besonders das mit den Delphi-Tags... Dieses Husch-Pfusch-Verhalten und Hauptsache die Aufgabe fertig bekommen wird dich nicht weiter bringen, weder beim lernen von Delphi, noch bei der Hilfsbereitschaft der anderen Helfer hier...