Source position: ctgl.pas line 8209
type TglShaderSource = procedure(
shader: GLuint;
count: GLsizei;
string_: PPGLchar;
length: PGLint
);