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