This routine prototype is a hook for SetRGBPalette.
Source position: graphh.inc line 584
type setrgbpaletteproc = procedure(
ColorNum: SmallInt;
RedValue: SmallInt;
GreenValue: SmallInt;
BlueValue: SmallInt
);