Source position: ctgl.pas line 8374
type TglGetActiveUniformBlockName = procedure(
program_: GLuint;
uniformBlockIndex: GLuint;
bufSize: GLsizei;
length: PGLsizei;
uniformBlockName: PGLchar
);