Source position: ctgl.pas line 8514
type TglProgramParameteri = procedure(
program_: GLuint;
pname: GLenum;
value: GLint
);