glBindTexture(GL_TEXTURE_2D, lights[i].shadowmap);
        glCopyTexSubImage2D(GL_TEXTURE_2D, 0, 0, 0, 0, 0, shadowMapSize, shadowMapSize);
        glBindTexture(GL_TEXTURE_2D, 0);

function gsGenShadowFBO(Var AFBO: TFBOInfo): TBool32;
var
  FBOState: TuInt32;
begin
 with AFBO do
  begin
      glGenTextures(1, @image);
      glBindTexture(GL_TEXTURE_2D, image);
      glTexImage2D(GL_TEXTURE_2D, 0, GL_DEPTH_COMPONENT16, width, height, 0, GL_DEPTH_COMPONENT, GL_UNSIGNED_BYTE, NIL);
      glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_NEAREST);

      glGenFramebuffersEXT(1, @container);
      glBindFramebufferEXT(GL_FRAMEBUFFER_EXT, container);
      glFramebufferTexture2DEXT(GL_FRAMEBUFFER_EXT, GL_DEPTH_ATTACHMENT_EXT, GL_TEXTURE_2D, container, 0);
      glDrawBuffer (GL_FALSE);
      glReadBuffer(GL_FALSE);


            FBOState:= glCheckFramebufferStatusEXT(GL_FRAMEBUFFER_EXT);
      If FBOState = GL_FRAMEBUFFER_COMPLETE_EXT
      Then Result:= TRUE
      Else Result:= FALSE;

      glBindFramebufferEXT(GL_FRAMEBUFFER_EXT,0); // Unbind
  end;
end;

//Initialisierung:
FBO erstellen
FBO binden
Einen ColorBuffer an den FBO binden (ich glaub man braucht einen => ggf. RenderBuffer nehmen)
FBO abschalten

// Rendern:
FBO binden
Schleife von 0 bis 10
begin
    Tiefentextur für Lampe i an GL_DEPTH_ATTACHMENT_EXT des FBO binden
    glCheckFramebufferStatusEXT zu debug-Zwekcen
    Tiefenbuffer leeren
    Aus Sicht von Lampe i rendern
end
FBO abschalten