Und falls mal in TColor kein reiner RBG-Wert liegen könnte, dann vorher noch via
ColorToRGB den Farbwert auflösen.
PS: GetRValue, GetBValue und GetGValue
Warum eigentlich "Zahl" und nicht "Farbe"?
Zitat:
:= RGB(max(rot-10, 0), max(gruen-10, 0), max(blau-10, 0));
Und ich würde die Berechnungen, der Übesichtlichkeit halber, mit in die Zuweisungen der Variablen rot/grun/blau verschieben.