1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

 inc(t);
  sun;
  moves;
  earthangle := earthangle + 1;
  moonangle := moonangle + 5;
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity;
   glpushmatrix;
  glTranslatef(dep, depp, deppp);
  glrotatef(rot,0,1,0);
  glPushMatrix;
    if t = 1 then LoadTexture(ExtractFilePath(ParamStr(0))+'\Sonne.TGA', MyTex, False);
    DrawSphere;
    glPushMatrix;
      glRotatef(EarthAngle, 0, 0, 1);
      glTranslatef(5, 0, 0);
      glScalef(0.5, 0.5, 0.5);
      DrawSphere;
      //glBindTexture(GL_TEXTURE_2D, Tex);
      // gluQuadricTexture(pp, true);

      glPushMatrix;
        glRotatef(MoonAngle, 0, 0, 1);
        glTranslatef(2, 0, 0);
        glScalef(0.5, 0.5, 0.5);
         if t = 1 then LoadTexture(ExtractFilePath(ParamStr(0))+'\Erde.TGA', Tex, False);
       DrawSphere;

          glpopmatrix;
          glpopmatrix;
          glpopmatrix;
          glpopmatrix;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

 
 Textures: array of TglBitmap2D;

...
function LoadTexture(Path: String): integer;
var A: integer;
begin
  if FileExists(Path) then
    begin
      A:=Length(Textures);
      SetLength(Textures,A+1);
      Textures[A]:=TglBitmap2D.Create;
      Textures[A].LoadFromFile(Path);
      Result:=A;
    end;
...
procedure ZeichneKugel(TexID: integer);
begin
 if TexID<>-1 then
    begin
      Textures[TexID].Bind; //ab hier wird Textur[TexID] verwendet
    end;