من هرچی به خودم فشار آوردم نفهمیدم
اگه میشه کلمه به کلمه تو ضیح بدین:
type
TRGB32 = packed record
B, G, R, A: Byte;
end;
TRGB32Array = packed array[0..MaxInt div SizeOf(TRGB32)-1] of TRGB32;
PRGB32Array = ^TRGB32Array;