- function GetError(pshader: GLHandleARB): String;
 - var
 - blen, slen: GLInt;
 - InfoLog: PGLCharARB;
 - begin
 - glGetObjectParameterivARB(pshader, GL_OBJECT_INFO_LOG_LENGTH_ARB, @blen);
 - if blen > 1 then
 - begin
 - GetMem(InfoLog, blen * SizeOf(GLCharARB));
 - glGetInfoLogARB(pshader, blen, slen, InfoLog);
 - Result := PChar(InfoLog);
 - Dispose(InfoLog);
 - end;
 - end;
 






