procedure TDLMatch.Render;
begin
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

  glMatrixMode(GL_PROJECTION);
    glLoadIdentity;
    SetupGL;

  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;

  //----------------------------------------------------------------------------
  glBindTexture(GL_TEXTURE_2D, TableTexture1);
  glBegin(GL_QUADS);
    glTexCoord2f(0,0);  glVertex3f(0,0,-128); // unten links
    glTexCoord2f(1,0);  glVertex3f(100,0,-128); // unten rechts
    glTexCoord2f(1,1);  glVertex3f(100,100,-128); // oben rechts
    glTexCoord2f(0,1);  glVertex3f(0,100,-128); // oben links
  glEnd;

  if disp2Quad then
  begin
    glDisable(GL_TEXTURE_2D);
      glColor3f(1,0,0); // ROT !!!
      glBegin(GL_QUADS);
        glVertex3f(0,0,-128); // unten links
        glVertex3f(-100,0,-128); // unten rechts
        glVertex3f(-100,-100,-128); // oben rechts
        glVertex3f(0,-100,-128); // oben links
      glEnd;
    glEnable(GL_TEXTURE_2D);
  end;
  //----------------------------------------------------------------------------

  SwapBuffers(DC);
end;

procedure TDLMatch.SetupGL;
begin
  glClearColor(0, 0, 0, 0.0);                                   // Hintergrundfarbe: Hier ein SCHWARZ
  glOrtho(-(SizeX/2), SizeX/2, -(SizeY/2), SizeY/2, NearClipping, FarClipping);         // Aktiviert 2D Perspektive
  glViewport(0,0,OGLDisplay.ClientWidth,OGLDisplay.ClientHeight);
  glEnable(GL_TEXTURE_2D);                                         // Aktiviert Texture Mapping
  glEnable(GL_DEPTH_TEST);                                        // Aktiviert Tiefentest
  glDepthFunc(GL_LESS);                                             // Depth Buffer Setup
end;