Source position: ctgl.pas line 8198
type TglGetShaderSource = procedure(
shader: GLuint;
bufSize: GLsizei;
length: PGLsizei;
source: PGLchar
);