Ich hab hier mal ein Beispiel, ganz zu frieden bin ich damit noch nicht und es kann sicher noch ausgebaut werden (Es wird angenommen, dass das Minimum 0 ist):
Delphi-Quellcode:
function TForm1.MakeColor(i, max: Integer): TColor;
var
r, g, b: Integer;
begin
r := Round(255 * (i / max));
g := 255 - r;
b := 0;
Result :=
RGB(r, g, b);
end;
Wenn der Wert maximal ist, wirds rot, wenn er minimal ist, wirds grün.