mat_specular : array [0..3] of GLfloat = ( 1.0, 1.0, 1.0, 1.0 );
 mat_shininess : GLfloat = 50.0;
 light_position : array [0..3] of GLfloat = ( 1.0, 1.0, 1.0, 0.0 );

glPushMatrix;
  // Generate a sphere using the OpenGL utility Library
  SphereQuadratic := gluNewQuadric();             // Create A Pointer To The Quadric Object (Return 0 If No Memory) (NEW)
  gluQuadricNormals(SphereQuadratic, GLU_SMOOTH);          // Create Smooth Normals (NEW)

  glMaterialfv(GL_FRONT, GL_SPECULAR, @mat_specular);
  glMaterialfv(GL_FRONT, GL_SHININESS, @mat_shininess);
  glLightfv(GL_LIGHT1, GL_POSITION, @light_position);

  glEnable(GL_LIGHTING);
  glEnable(GL_LIGHT1);
  glDepthFunc(GL_LEQUAL);
  glEnable(GL_DEPTH_TEST);


  glTranslatef(1000.0,1000.0,0.0);          // Move the scene back 10 units so we can see the triangle properly

  glColor3f(1.0,0.0,0.0);               // Set our current rendering colour to red

  gluSphere(SphereQuadratic, 50.0, 32, 32); // Render the sphere to the scene
  glPopMatrix;

procedure TOGLPanel.SetLight;
const
  light_position : Array[0..3] of GlFloat = (0.0, 0.0, 0.0, 0.0);
  light_ambient  : Array[0..3] of GlFloat = (0.2, 0.2, 0.2, 1.0);
  light_diffuse  : Array[0..3] of GlFloat = (0.5, 0.5, 0.5, 1.0);
  light_spot_direction  : Array[0..3] of GlFloat = (0.0, 0.0, -1.0, 1.0);
  light_spot_cutoff     : Array[0..3] of GlFloat = (10.0, 0.0, -1.0, 1.0);
begin

  if Licht then
  begin
  //  glLightModelf(GL_LIGHT_MODEL_TWO_SIDE, 1.0);
  //  glLightModelf(GL_LIGHT_MODEL_LOCAL_VIEWER, 1.0);
    glLightfv(GL_LIGHT0, GL_AMBIENT,  @light_ambient[0]);
    glLightfv(GL_LIGHT0, GL_DIFFUSE,  @light_diffuse[0]);

   // glLightf(GL_LIGHT0, GL_CONSTANT_ATTENUATION, 1.0);
  //  glLightf(GL_LIGHT0, GL_LINEAR_ATTENUATION, 0.02);
  //  glLightf(GL_LIGHT0, GL_QUADRATIC_ATTENUATION, 0.01);
  //  glLightf(GL_LIGHT0, GL_SPOT_EXPONENT, 0.0);

    glEnable(GL_COLOR_MATERIAL);
    glEnable(GL_LIGHTING);
    glEnable(GL_LIGHT0);


    glLightfv(GL_LIGHT0, GL_SPOT_DIRECTION, @light_spot_direction[0]);
    glLightfv(GL_LIGHT0, GL_POSITION, @light_position[0]);
  //  glLightfv(GL_LIGHT0, GL_SPOT_CUTOFF, @light_spot_cutoff[0]);
  //  glLightf(GL_LIGHT0,GL_SPOT_EXPONENT,100.0);
  end
  else
  begin
    glEnable(GL_COLOR_MATERIAL);
    glDisable(GL_LIGHTING);
  end;
end;

light_position : array [0..3] of GLfloat = ( 1.0, 1.0, 1.0, 0.0 );
light_ambient  : Array[0..3] of GlFloat = (0.2, 0.2, 0.2, 1.0);
light_diffuse  : Array[0..3] of GlFloat = (0.5, 0.5, 0.5, 1.0);

  glPushMatrix;
  // Generate a sphere using the OpenGL utility Library
  SphereQuadratic := gluNewQuadric();             // Create A Pointer To The Quadric Object (Return 0 If No Memory) (NEW)
  gluQuadricNormals(SphereQuadratic, GLU_SMOOTH);          // Create Smooth Normals (NEW)

  glMaterialfv(GL_FRONT, GL_SPECULAR, @mat_specular);
  glMaterialfv(GL_FRONT, GL_SHININESS, @mat_shininess);
  glLightfv(GL_LIGHT1, GL_AMBIENT,  @light_ambient[0]);
  glLightfv(GL_LIGHT1, GL_DIFFUSE,  @light_diffuse[0]);
  glLightfv(GL_LIGHT1, GL_POSITION, @light_position);

  glEnable(GL_LIGHTING);
  glEnable(GL_LIGHT1);
  glDepthFunc(GL_LEQUAL);
  glEnable(GL_DEPTH_TEST);


  glTranslatef(1000.0,1000.0,0.0);          // Move the scene back 10 units so we can see the triangle properly

  glColor3f(1.0,0.0,0.0);               // Set our current rendering colour to red

  gluSphere(SphereQuadratic, 50.0, 32, 32); // Render the sphere to the scene
  glPopMatrix;

  glPopMatrix;

light_ambient  : Array[0..3] of GlFloat = (0.2, 0.2, 0.2, 1.0);
  light_diffuse  : Array[0..3] of GlFloat = (0.5, 0.5, 0.5, 1.0);
 
glLightfv(GL_LIGHT0, GL_AMBIENT,  @light_ambient[0]);
glLightfv(GL_LIGHT0, GL_DIFFUSE,  @light_diffuse[0]);