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