Source position: agraphics.pas line 2460
procedure LoadRGB4(
vp: pViewPort;
const colors: pWord;
count: LongInt
);