type
 TRGB = record
   case integer of
   1: (RGB: LongInt);
   2: (B, G, R, O: BYTE);
 end;

procedure ILIndexToPByte(const AImageList: TImageList; AIndex: integer; ADest: PByte; const AWidth, AHeight: integer);
var
 x, y: integer;
 rgb: TRGB;
 bm: TBitMap;
begin
 bm := TBitMap.Create;
 try
   AImageList.GetBitmap(AIndex, bm);
   for x := 0 to min(bm.Width, AWidth) - 1 do
     for y := 0 to min(bm.Height, AHeight) - 1 do
     begin
       rgb.RGB := ColorToRGB(bm.Canvas.Pixels[x, y]);
       ADest^ := rgb.R;
       inc(ADest);
       ADest^ := rgb.G;
       inc(ADest);
       ADest^ := rgb.B;
       inc(ADest);
     end;
 finally
   bm.Free
 end;
end;