Joa danke, genau das wars was ich brauchte...
Danke..
Umgewandelt noch in eine Funktion (Math in Uses aufnehmen):
Delphi-Quellcode:
function GetColor(Prozent: integer): COLORREF;
begin
Result :=
RGB(255 * Min(100 - Prozent, 50)
div 50, 255 * Min(Prozent, 50)
div 50, 0);
end;