Библиотека текстур - накладываются текстуры друг на друга

type
 TTexture = class(TObject)
 {*----Поля-----*}
  FTexPointer: GLuint;   //-Указатель на текстуру
  FName,                 //-Имя текстуры
  FPath,                 //-Путь к текстуре
  FMaterial: string;     //-Тип материала
  FWidth,                //-Ширина текстуры
  FHeight,               //-Высота текстуры
  FFormat: word;         //-Формат текстуры
  FpData: pointer;       //-Указатель данных текстуры

function TMaterialLibrary.LoadJPGTexture(nm,pth: string):boolean;
var
  Data : Array of LongWord;
  W, Wdth : Integer;
  H, Hght : Integer;
  BMP : TBitmap;
  JPG : TJPEGImage;
  C : LongWord;
  Line : ^LongWord;
begin
  JPG:=TJPEGImage.Create;
  try
      JPG.LoadFromFile(pth);
    except
      MessageBox(0, PChar('Не могу загрузить JPG - "'+ pth +'"'), PChar('MaterialLibrary Unit'), MB_OK);
      Exit;
    end;
   // Create Bitmap
  BMP:=TBitmap.Create;
  BMP.pixelformat:=pf32bit;
  BMP.width:=JPG.width;
  BMP.height:=JPG.height;
  BMP.canvas.draw(0,0,JPG);        // Copy the JPEG onto the Bitmap
 
  //  BMP.SaveToFile('D:\test.bmp');
  Wdth :=BMP.Width;  
  Hght :=BMP.Height;
  SetLength(Data, Wdth*Hght);
 
  For H:=0 to Hght-1 do
  Begin
    Line :=BMP.scanline[Hght-H-1];   // flip JPEG
    For W:=0 to Wdth-1 do
    Begin
      c:=Line^ and $FFFFFF; // Need to do a color swap
      Data[W+(H*Wdth)] :=(((c and $FF) shl 16)+(c shr 16)+(c and $FF00)) or $FF000000;  // 4 channel.
      inc(Line);
    End;
  End;
 
  BMP.free;
  JPG.free;
 
  Texture[MNumber]:= TTexture.Create(Wdth,Hght,GL_RGBA,addr(Data[0]),nm,pth,'нет');
  MNumber:= MNumber+1;
  result:= true;
end;

procedure TObj.ApplyTexture;
begin
 with MaterialLibrary.Texture[TexIndex] do
 begin
  glTexEnvi(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);  {Texture blends with object background}
  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR); { only first two can be used }
  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR); { all of the above can be used }
  glGenTextures(TexIndex, @TexPointer);
  glBindTexture(GL_TEXTURE_2D, TexPointer);
 
  if Format = GL_RGBA then
    gluBuild2DMipmaps(GL_TEXTURE_2D, GL_RGBA, Width, Height, GL_RGBA, GL_UNSIGNED_BYTE, pData)
  else
    gluBuild2DMipmaps(GL_TEXTURE_2D, 3, Width, Height, GL_RGB, GL_UNSIGNED_BYTE, pData);
 end;
end;

//Конвертация цвета из BGR в RGB//
procedure TMaterialLibrary.SwapRGB(data : Pointer; Size : Integer);
asm
  mov ebx, eax
  mov ecx, size
 
@@loop :
  mov al,[ebx+0]
  mov ah,[ebx+2]
  mov [ebx+2],al
  mov [ebx+0],ah
  add ebx,3
  dec ecx
  jnz @@loop
end;

...
\\для Texture[1]:
glGenTextures(1, @TexPointer);
glBindTexture(GL_TEXTURE_2D, TexPointer);
glBegin(...); \\1-ый объект
glEnd;
...
\\для Texture[2]:
glGenTextures(2, @TexPointer);
glBindTexture(GL_TEXTURE_2D, TexPointer);
glBegin(...);  \\2-ой объект
glEnd;

  texture := TTexture2D.Create;
  texture.Bind;
  glTexParameteri( GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR );
  glTexParameteri( GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR );
  glTexParameteri( GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_CLAMP_TO_EDGE );
  glTexParameteri( GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_CLAMP_TO_EDGE );
  glTexEnvi( GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_REPLACE );
  texture.LoadFromFile( '..\..\радуга.bmp' );//могут быть jpg,png

  texture.Bind;
  glBegin( GL_QUADS );
    glVertex2d( FLimit.Re.min, FLimit.Im.min );
    glVertex2d( FLimit.Re.max, FLimit.Im.min );
    glVertex2d( FLimit.Re.max, FLimit.Im.max );
    glVertex2d( FLimit.Re.min, FLimit.Im.max );
  glEnd();

texture.Free;

glGenTextures(1, Texture[0].TX);
glGenTextures(1, Texture[1].TX);

const n = 5;
var TX:array[1..n] of GLuint;
begin
  glGenTextures( n, @TX[1] ); // сразу 5 новых текстур
//...

var ids:TArray<GLuint>;
      n:integer;
begin
  n := 5;
  SetLength( ids, n );// Length(ids) = n
  glGenTextures( Length(ids), Pointer(ids) );
//...

var ID:GLuint;
begin
  glGenTextures( 1, @ID );

type 
  TTexture = class
    TX:GLuint;
  //...
  end;
 
var
  Texture:array[0..1] of TTexture;
 
begin
   Texture[0] := TTexture.Create;
   Texture[1] := TTexture.Create;
 
   glGenTextures( 1, @Texture[0].TX );
   glGenTextures( 1, @Texture[1].TX );

procedure TOQuad.Draw;
begin
 inherited Draw;
 if Textured then
 begin
  with MaterialLibrary.Texture[TexIndex] do
 begin
 glBindTexture(GL_TEXTURE_2D, TexPointer);
  if Format = GL_RGBA then
    gluBuild2DMipmaps(GL_TEXTURE_2D, GL_RGBA, Width, Height, GL_RGBA, GL_UNSIGNED_BYTE, pData)
  else
    gluBuild2DMipmaps(GL_TEXTURE_2D, 3, Width, Height, GL_RGB, GL_UNSIGNED_BYTE, pData);
 end;
    glPointSize(Size);
 glBegin(GL_QUADS);
  GLNormal(0,1,0);
  GLTexture(0,0); GLVertex(Coord[0].X,Coord[0].Y,Coord[0].Z);
  GLTexture(1,0); GLVertex(Coord[1].X,Coord[1].Y,Coord[1].Z);
  GLTexture(1,1); GLVertex(Coord[2].X,Coord[2].Y,Coord[2].Z);
  GLTexture(0,1); GLVertex(Coord[3].X,Coord[3].Y,Coord[3].Z);
 glEnd;
 end
end;

 with ML do
  begin
   LoadTexture('ДеревоЯщик','textures\WoodBox.jpg');
   LoadTexture('ДеревоЯщик1','textures\WoodBox 1.jpg');
  end;
for i := 0 to QuadCount-1 do
   begin
    with Quads.Items[i] do
    begin
     Move(-4+2*i,0,0);
     MaterialLibrary:=ML;
     SetTexture('ДеревоЯщик');
     Textured:= true;
    end;
   end;
for i := 0 to CubeCount-1 do
   begin
    with Cubes.Items[i] do
    begin
     Move(-4+2*i,-2,0);
     MaterialLibrary:=ML;
     SetTexture('ДеревоЯщик1');
     Textured:=true;
    end;
   end;

procedure TObj.SetTexture(nm: string);
var
 i: integer;
 found: boolean;
begin
 if MaterialLibrary.MNumber>0 then
 begin
  found:=false;
  i:=0;
  repeat
   if nm = string(MaterialLibrary.Texture[i].Name) then
   begin
    found:= true;
    TexIndex:=i;
   end;
   i:=i+1;
  until (found = true) or (i = MaterialLibrary.MNumber);
  if found = false then
  begin
   MessageBox(0, PChar(Self.Name+':В библиотеке нет текстуры '+nm), PChar('GameObjects Unit'), MB_OK);
   Exit;
  end;
 end
 else
 begin
  MessageBox(0, PChar(Self.Name+': В библиотеке нет текстур '), PChar('GameObjects Unit'), MB_OK);
  Exit;
 end;
end;

//-Задание вершин в OpenGL-//
procedure TPrimitive.GLVertex(coorX,coorY,coorZ: double);
begin
  glVertex3f(coorX,coorY,coorZ);
end;
 
//-Задание цвета в OpenGL-//
procedure TPrimitive.GLColor(colorR,colorG,colorB: double);
begin
  glColor3f(colorR,colorG,colorB);
end;
 
//-Задание вершин в OpenGL-//
procedure TPrimitive.GLNormal(coorX,coorY,coorZ: double);
begin
 glNormal3f(coorX,coorY,coorZ);
end;
 
procedure TPrimitive.GLTexture(coorX,coorY: Double);
begin
 glTexCoord2f(coorX,coorY);
end;