Fragment shaders(s) failed to link, vertex shaders(s) failed to link.
unexpected error.
unexpected error.

procedure TglShader.Load;
var FShaderLen, VShaderLen: Integer;
begin
  //Objekte erstellen
  fFShaderObj := glCreateShaderObjectARB(GL_FRAGMENT_SHADER_ARB);
  Log(GetInfoLog(fFShaderObj));

  fVShaderObj := glCreateShaderObjectARB(GL_VERTEX_SHADER_ARB);
  Log(GetInfoLog(fVShaderObj));

  //Code an ShaderObjekte übergeben
  VShaderLen := Length(fVShaderCode);
  FShaderLen := Length(fFShaderCode);

  glShaderSourceARB(fVShaderObj, 1, @fVShaderCode, @VShaderLen);
  glShaderSourceARB(fFShaderObj, 1, @fFShaderCode, @FShaderLen);


  glCompileShaderARB(fVShaderObj);
  Log(GetInfoLog(fVShaderObj));

  glCompileShaderARB(fFShaderObj);
  Log(GetInfoLog(fFShaderObj));

  //ShaderObjekte an ProgrammObjekt binden
  glAttachObjectARB(fProgObj, fVShaderObj);
  glAttachObjectARB(fProgObj, fFShaderObj);

  //ShaderObjekte freigeben
  glDeleteObjectARB(fVShaderObj);
  glDeleteObjectARB(fFShaderObj);

  //Shader Linken
  glLinkProgramARB(fProgObj);
  Log(GetInfoLog(fProgObj));
end;

function TglShader.GetInfoLog(glObject: GLHandleARB): String;
var Msg: PChar;
var bLen, sLen: Integer;
begin
  glGetObjectParameterivARB(glObject, GL_OBJECT_INFO_LOG_LENGTH_ARB , @bLen);
  if bLen > 1 then begin
    GetMem(Msg, bLen * SizeOf(Char));
    glGetInfoLogARB(glObject, bLen, sLen, Msg);
    result := PChar(Msg);
    Dispose(Msg);
  end;
end;

//Vertex
const int LIGHT_COUNT = 1;
varying vec3 N;
varying vec3 V;
varying vec3 lightvec[LIGHT_COUNT];
void main(void)
{
    gl_TexCoord[0]  = gl_MultiTexCoord0;
    N                  = normalize(gl_NormalMatrix * gl_Normal);
    V                = vec3(gl_ModelViewMatrix * gl_Vertex);
    for(int i = 0; i < LIGHT_COUNT; i++){
        lightvec[i] = normalize(gl_LightSource[i].position.xyz - V);
    }
    gl_Position     = gl_ModelViewProjectionMatrix * gl_Vertex;
    gl_FrontColor   = gl_Color;
}
//end

//Fragment
const int LIGHT_COUNT = 1;
const float PI = 3.14159265;
varying vec3 N;
varying vec3 V;
varying vec3 lightvec[LIGHT_COUNT];
uniform sampler2D Texture0;

void main(void){   
    vec3 Eye = normalize(-V);
    vec4 EndColor = vec4(0.0, 0.0, 0.0, 0.0);
    vec4 EndSpec  = vec4(0.0, 0.0, 0.0, 0.0);
    for(int i = 0; i < LIGHT_COUNT; i++){
        vec3 Reflected = normalize(reflect(-lightvec[0], N)); //HIER kommt der fehler wenn ich [i] benutze
        vec4 IAmbient  = gl_LightSource[i].ambient  * gl_FrontMaterial.ambient;
        vec4 IDiffuse  = gl_LightSource[i].diffuse  * gl_FrontMaterial.diffuse  * max(dot(N, lightvec[0]), 0.0);
        vec4 ISpecular = gl_LightSource[i].specular * gl_FrontMaterial.specular * pow(max(dot(Reflected, Eye), 0.0), gl_FrontMaterial.shininess);
        EndColor += (IAmbient+IDiffuse);
        EndSpec  += ISpecular;
    }
    EndColor += gl_FrontMaterial.emission;

    gl_FragColor = (gl_FrontLightModelProduct.sceneColor + EndColor); //* texture2D(Texture0, vec2(gl_TexCoord[0]));

    gl_FragColor += EndSpec;
}
//end

//Vertex
const int COUNT = 8;
varying vec3 vecarr[COUNT];
void main(void)
{
   gl_Position     = gl_ModelViewProjectionMatrix * gl_Vertex;
   for (int i = 0; i < COUNT; i++){
      vecarr[i] = vec3(i/COUNT, 1.0, 1-i/COUNT);
   }
}
//end

//Fragment
const int COUNT = 8;
varying vec3 vecarr[COUNT];
void main(void){
   gl_FragColor = vec4(1.0, 1.0, 1.0, 1.0);
   for(int i = 0; i < COUNT; i++){
      gl_FragColor *= vec4(vecarr[i], 1.0);
   }
}
//end