- // Array anlegen
 - type TOGLTexture = record  
 -   Texture : TgluInt;
 - end;
 - var OGLTexture: array of TOGLTexture;
 - //Texturen laden - Informationen zum Speicherort aus DB
 - Procedure LoadTexture
 - var i : integer;
 - begin
 -   with DatenModul do
 -   begin
 -      TextureTable.First;
 -      while not TextureTable.Eof do
 -      begin
 -         inc(i);
 -         SetLength(OGLTexture,i); //Arraydimension anpassen
 -         LoadTEXTURE(TexturePath + TextureTableTextureName.value,OGLTexture[i].Texture,false);
 -         glBindTexture(GL_TEXTURE_2D,OGLTexture[i].Texture);
 -         TextureTable.Next;
 -      end;
 -   end;
 - end
 - // Textur den Darstellungsobjekten hinzufügen
 - Procedure SetTexture
 - begin
 -   glBindTexture(GL_TEXTURE_2D,gewuenschteTextureID);
 -   // Darstellung
 -   .
 -   .
 - end;
 

