oder ohne
RGB-Funktion.
Color := Round(Blue * 0.114 + Green * 0.578 + Red * 0.299) * $010101;
PS: was für Multiplicatoren (die 0.xxx innerhalb ROUND) du verwendest ist eher Geschmackssache, da es sich um rein subjetive Werte handelt. (ich verwende z.B. auch etwas Andere) ^^