Dazu musst du deine Bereich unterteilen.
Delphi-Quellcode:
1..75: Result := GetMixColor(
Rgb(0, 0, 255),
Rgb(0, 255, 0), (i - 1) / 75);
76..150: Result := GetMixColor(???, ???, (i - 76) / 75);
151..200: Result := GetMixColor(???,
Rgb(255, 0, 0), (i - 151) / 50);[/delphi]
??? - leider weis ich die Farbwerte um diese Zeit nicht mehr.