Farbwechsel mit Syntax If

[inherited]

WO ist dann das Problem?
if color=clGreen then color:=clYellow
else if color=...
Den Rest darfst du machen, wir sind schließlich nicht deine Hausaufgabenmacher

(Sauberer wäre das mit case, aber da offensichtlich nach if verlangt wird...)