ColorToGrayValue

Declaration: ColorToGrayValue (Cl: TColor): integer;
The function ColorToGrayValue transforms the color Cl into a gray value in the range between 0 (black) and 255 (white). The gray value is calculated according to common television standards.