Converts RGB color to YCbCr as used in JPEG.

procedure RGBToYCbCr(R: Byte; 
                     G: Byte; 
                     B: Byte; 
                     var Y: Byte; 
                     var Cb: Byte; 
                     var Cr: Byte);

ImagingColors (at line 45)