Look at CopyPalette for details.

function ImCopyPalette(SrcPal: PPalette32; 
                       DstPal: PPalette32; 
                       SrcIdx: LongInt; 
                       DstIdx: LongInt; 
                       Count: LongInt): Boolean; cdecl;

ImagingExport (at line 167)