.
.
.
var
  VertexShaderHandle, FragmentShaderHandle: GLhandle;
  ShaderProgramHandle: GLhandle;
.
.
.
function DisableShaderProgram (pObject: glHandle): boolean;
var
  nMaxCount, nCount: glInt;
  aShaders: array [0..1] of glHandle;
  pShaders: pgluInt;
  i: integer;
begin
  result := true;
  nMaxCount := 2;
  pShaders := @aShaders[0];
  glGetAttachedShaders (pObject, nMaxCount, nCount, pShaders);
  if nMaxCount = nCount then begin
    for i := 0 to nCount - 1 do begin
      glDetachShader (pObject, aShaders[i]);
    end;
  end;

  glUseProgram (0);
end;

function EnableShaderProgram (pObject: glHandle): boolean;
var
  pLog: string;
begin
  result := false;

  glAttachShader (ShaderProgramHandle, VertexShaderHandle);
  glAttachShader (ShaderProgramHandle, FragmentShaderHandle);

  glLinkProgram (ShaderProgramHandle);
  if GetProgramInfoLog (ShaderProgramHandle, pLog) then begin
    if not FuncIsComServer then begin
      StdFehler ('Shaderprogramm kann nicht gelinkt werden');
    end;
    exit;
  end;

  glUseProgram (ShaderProgramHandle);

  result := true;
end;