RC := CreateRenderingContext(DC, [opDoubleBuffered], 32, 24, 0, 0, 0, 0);
  ...
  shadow_size := 4096;
  glGenTextures(1, @shadow_map);
  glBindTexture(GL_TEXTURE_2D, shadow_map);
  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
  //glTexImage2D(GL_TEXTURE_2D, 0, GL_DEPTH_COMPONENT24, shadow_size, shadow_size, 0, GL_DEPTH_COMPONENT, GL_UNSIGNED_BYTE, pTexData); //<- Alles weiß...
  glTexImage2D(GL_TEXTURE_2D, 0, GL_RGB, shadow_size, shadow_size, 0, GL_RGB, GL_UNSIGNED_BYTE, nil); //<- funktioniert wie gehabt

  glclearcolor(1,0,0,0);
  glViewPort(0, 0, shadow_size, shadow_size);
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
 
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;
  gluPerspective(45.0, 1, 0.01, 128);

  render_world;

  glenable(GL_TEXTURE_2D);
  glBindTexture(GL_TEXTURE_2D, shadow_map);
  //glCopyTexImage2D(GL_TEXTURE_2D, 0, GL_DEPTH_COMPONENT24, 0, 0, shadow_size, shadow_size, 0); //<- Hierbei wird wieder alles weiß...
  glCopyTexImage2D(GL_TEXTURE_2D, 0, GL_RGB, 0, 0, shadow_size, shadow_size, 0); // funktionert

  glViewPort(0, 0, GLForm.ClientWidth, GLForm.ClientHeight);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity;

  gluPerspective(45.0, GLForm.ClientWidth/GLForm.ClientHeight, 0.01, 128);
  Render_world;
  render_hud;
  ...