Converts RGB color to YCbCr as used in JPEG.

procedure RGBToYCbCr16(R: Word; 
                       G: Word; 
                       B: Word; 
                       var Y: Word; 
                       var Cb: Word; 
                       var Cr: Word);

ImagingColors (at line 49)