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

  if Licht then
  begin
    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]);
  end
  else
  begin
    glEnable(GL_COLOR_MATERIAL);
    glDisable(GL_LIGHTING);
  end;
end;

 
  ActivateRenderingContext( FDC, FRC );

  if GrafikMax > 1 then
  begin
    SetPixelFaktor(GrafikMax);
    GrafikMax := 1;
  end;

  ClearPanel(RGB(100,100,100));

  SetPerspective(GetClientRect);

  glPushMatrix;

    glTranslatef(
      StartPanelDat.MoveX + FIntPanelDat.MoveX,
      StartPanelDat.MoveY + FIntPanelDat.MoveY,
      StartPanelDat.MoveZ + FIntPanelDat.MoveZ);

    glRotatef( StartPanelDat.RotateX + FIntPanelDat.RotateX, 1, 0, 0 );
    glRotatef( StartPanelDat.RotateY + FIntPanelDat.RotateY, 0, 1, 0 );
    glRotatef( StartPanelDat.RotateZ + FIntPanelDat.RotateZ, 0, 0, 1 );


    glPushMatrix;
      glLoadIdentity;
      SetLight;
    glPopMatrix;


    glShadeModel(GL_SMOOTH);         

    glTranslatef(ObjektNullPunktVerschiebung[0], ObjektNullPunktVerschiebung[1],
      ObjektNullPunktVerschiebung[2]);
   
   // Zeichnet Modell
    If Assigned(OnPaint) Then
      OnPaint(Self);

    ZeichneKoordinatenSystem;


  glPopMatrix;

  glFinish;

  SwapBuffers(FDC);

  DeactivateRenderingContext;

  DrawZoomRect;