Look at CloneImage for details.

function ImCloneImage(const Image: TImageData; 
                      var Clone: TImageData): Boolean; cdecl;

ImagingExport (at line 106)