glUniform4f(glGetUniformLocation(shader.ProgramObject,  PAnsiChar('LampColor'+inttostr(i))), LampColor[0], LampColor[1], LampColor[2], 1);

var
 idx: AnsiString;
...
idx:='LampColor'+inttostr(i);
glUniform4f(glGetUniformLocation(shader.ProgramObject,  PAnsiChar(idx)), LampColor[0], LampColor[1], LampColor[2], 1)

PAnsiChar('LampColor'+inttostr(i)))

glGetUniformLocation(shader.ProgramObject,  PAnsiChar('LampColor' + AnsiString(IntToStr(i))))

 normal = gl_NormalMatrix * gl_Normal;
 vec4 posEye =  gl_ModelViewMatrix * gl_Vertex;
 lightDir = vec3(meineLampe[0].position.xyz - posEye.xyz);

  vec3 N = normalize(normal);
  vec3 L = normalize(lightDir);
...
  if (Darfichprojezieren) {
...
}

if (dot(N,L) >= 0) {

if (dot(N,L) < 0) {

#version 120
const int max_lights = 7;

uniform mat4 TexGenMats[max_lights];
uniform mat4 InvViewMat;

varying vec4 projCoord[max_lights];
varying vec4 posEye;
varying vec3 normal;
void main()
{   

 posEye =  gl_ModelViewMatrix * gl_Vertex;

 vec4 posWorld = InvViewMat * posEye;
   
   for (int i=0; i < max_lights; ++i) {
     projCoord[i] = TexGenMats[i] * posWorld;   
   }
   
   normal = gl_NormalMatrix * gl_Normal;
   
   gl_TexCoord[0] = gl_MultiTexCoord0;   
   
   gl_Position = ftransform();      
}

#version 120
const int max_lights = 7;

uniform sampler2D projMap0;
uniform sampler2D projMap1;
uniform sampler2D projMap2;
uniform sampler2D projMap3;
uniform sampler2D projMap4;
uniform sampler2D projMap5;
uniform sampler2D projMap6;
uniform sampler2D projMap7;
uniform sampler2D Texture0;

uniform vec4 LampColors[max_lights];       //Lichtfarbe und intensität
uniform int GoboIndex[max_lights];          //gibt an welcher Gobo Sampler projeziert werden soll
uniform vec4 AmbientColor;               //Umgebungsfarbe
uniform vec4 LightPos[max_lights];          //Lampenpositionen für evtl. weitere Berechnungen

varying vec4 projCoord[max_lights];
varying vec4 posEye;
varying vec3 normal;

void main (void)
{
 vec4  ProjMapColor = vec4(0.0, 0.0, 0.0, 0.0); 
 vec4  final_color = AmbientColor;   
 
 
 vec3  N = normalize(normal);
 vec3  L;
 vec3  lightDir;
 //Projektion für jede Lampe 
   for (int i=0; i <= max_lights; ++i)
  if (GoboIndex[i]>=0)
   {
     lightDir = vec3(LightPos[i].xyz - posEye.xyz);
    L = normalize(lightDir);
    if (dot(N,L)>=0)
     if(projCoord[i].q<0.0) {   
           
       if (GoboIndex[i]==0) {
               ProjMapColor = texture2DProj(projMap0, projCoord[i])* LampColors[i];
               }   else
       if (GoboIndex[i]==1) {      
               ProjMapColor = texture2DProj(projMap1, projCoord[i])* LampColors[i];
               } else             
       if (GoboIndex[i]==2) {
               ProjMapColor = texture2DProj(projMap2, projCoord[i])* LampColors[i];
               } else            
       if (GoboIndex[i]==3) {
               ProjMapColor = texture2DProj(projMap3, projCoord[i])* LampColors[i];         
               } else
       if (GoboIndex[i]==4) {
               ProjMapColor = texture2DProj(projMap4, projCoord[i])* LampColors[i];         
               } else
       if (GoboIndex[i]==5) {
               ProjMapColor = texture2DProj(projMap5, projCoord[i])* LampColors[i];         
               } else
       if (GoboIndex[i]==6) {
               ProjMapColor = texture2DProj(projMap6, projCoord[i])* LampColors[i];         
               } else
       if (GoboIndex[i]==7) {
               ProjMapColor = texture2DProj(projMap7, projCoord[i])* LampColors[i];         
               }       
    final_color += ProjMapColor;
   
    }
  }
  gl_FragColor =  final_color * texture2D(Texture0, gl_TexCoord[0].xy);         
}