Farbwechsel mit Syntax If

[the_killers]

Ich bin dir wirklich sehr dankbar für deine Antwort, aber ich hab erst seit paar Wochen Delphi und bin zwar relativ gut, aber etwas mit Tag und case hab ich noch nie gehört... es ist einfach auf dem einfachsten Niveau mit if <Bedingung> then <Anweisung> else if <Bedingung> then <Anweisung> else usw...