Source position: ctgl.pas line 9446
type TglGetProgramivNV = procedure(
id: GLuint;
pname: GLenum;
params: PGLint
);