Source position: ctgl.pas line 7919
type TglLighti = procedure(
light: GLenum;
pname: GLenum;
param: GLint
);