Converts VCL/CLX/LCL bitmap to TImageData structure.

procedure ConvertBitmapToData(Bitmap: TBitmap; 
                              var Data: TImageData);

ImagingComponents (at line 294)