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