ColorToRGB

Declaration: ColorToRGB (Cl: TColor; var r,g,b: byte);
The procedure ColorToRGB converts the color Cl into the corresponding red, green and blue values (parameters r, g and b). The valid range of the parameters r, g and b is 0 to 255.