Converts VCL/CLX/LCL bitmap to TBaseImage.

procedure ConvertBitmapToImage(Bitmap: TBitmap; 
                               Image: TBaseImage);

ImagingComponents (at line 300)

Image must exist before procedure is called. It overwrites its current image data. When Image is TMultiImage only the current image level is overwritten.