function ColorBetween(C1, C2 : TColor; blend:Real):TColor; da muß ich mind, 2 werte eingeben. bei dem Ausgang steht allerdings nur ein Wert zur verfühgung.
Dann schau nochmal genauer hin; die überladene Funktion gibt es in einer Variante, die beliebig viele Farben entgegen nimmt.
Wenn du 5 Farben übergibst, dann bekommst du den Verlauf in sagen wir mal 101 Schritten so:
Delphi-Quellcode:
for i:=0 to 100 do
begin
blend := i * 0.01; // blend bewegt sich zwischen 0.0 bis 1.0 !!
farbe := ColorsBetween([clBlack, clRed, clYellow, clWhite, clGreen], blend);
// hier mit farbe etwas tun....
end;
Anstelle von clBlack, clRed,... übergibst du natürlich deine eigenen 5 Farben.