Source position: ctgl.pas line 9198
type TglFragmentMaterialivSGIX = procedure(
face: GLenum;
pname: GLenum;
params: PGLint
);