Farbanimation mit TCanvas

[DerHaushaltsProfi]

Moin moin,

ich habe ein Rechteck in meine Canvas gezeichnet. Das Rechteck wurde in der Farbe clgreen "gebrusht". Nun möchte ich, wenn man auf einen Button drückt, dass das Rechteck seine Farbe ändert. Es soll von grün zu schwarz werden. Das ganze soll für den Nutzer des Programmes sichtbar sein und es soll ein "Farbverlauf" dargestellt sein. Mein Problem ist jetzt allerdings, dass ich nicht weiß wie man diesen Farbverlauf hin bekommt. Es soll nicht einfach von grün auf schwarz springen, es soll schon von grün über blau über gelb über rot zu schwarz werden (wie eine kleine Animation also). Wie kann man so etwas realisieren? Der Quelltext soll nicht aus brush.color := clgreen , brush.color := clblue brush.color := clyellow ..... bestehen. Es soll praktisch eine Funktion sein die dem Farbwert (z.B.) immer 5 dazu rechnet und er sich so, bis er bei schwarz ist, verändert. Ich hoffe ich habe mich (halbwegs ) verständlich ausgedrückt.

FÜr Antworten bedanke ich mich schon mal im Vorraus

mfg