Почему при наложении текстуры изменяется цвет фигур без текстуры

//---------------------Настройки для работы с текстурами----------------------
  //glMatrixMode (GL_TEXTURE); // Подключение текстурной матрицы.
  glEnable(GL_TEXTURE_2D); // Включить режим отображения текстуры.
  glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER,GL_NEAREST); 
  glTexParameteri(GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER,GL_NEAREST)
  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT);
  glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT);
  glTexImage2D(GL_TEXTURE_2D, 0, GL_RGB, Tex1.Width, Tex1.Height,
              0, GL_RGB, GL_UNSIGNED_BYTE, @Tex1.Data[0]);
 //-----------------------Управление цветом------------------------------------
  glEnable(GL_COLOR_MATERIAL); 
  glColorMaterial(GL_FRONT_AND_BACK, GL_AMBIENT_AND_DIFFUSE); 
   . . . . . . . . . . .
   . . . . . . . . . . .
// Инициализация VBO-буффера в видеопамяти.
procedure TForm1.VBOInit;
begin
  if not flagIniGL then exit;
  VBOFree; // Очистить буферы видеопамяти, если он занят.
  glGenBuffers(1, @vID);
  glGenBuffers(1, @cID);
  glGenBuffers(1, @nID);
  glGenBuffers(1, @tID);
  //--------------------------
  glBindBuffer(GL_ARRAY_BUFFER, vID);
  glBufferData(GL_ARRAY_BUFFER, Length(vM)*3*sizeof(GLFLoat), @vM[0], GL_DYNAMIC_DRAW);
  glBindBuffer(GL_ARRAY_BUFFER, cID);
  glBufferData(GL_ARRAY_BUFFER, Length(cM)*4*sizeof(GLFLoat), @cM[0], GL_STATIC_DRAW);
  glBindBuffer(GL_ARRAY_BUFFER, nID);
  glBufferData(GL_ARRAY_BUFFER, Length(nM)*3*sizeof(GLFLoat), @nM[0], GL_DYNAMIC_DRAW);
  glBindBuffer(GL_ARRAY_BUFFER, tID);
  glBufferData(GL_ARRAY_BUFFER, Length(tM)*2*sizeof(GLFLoat), @tM[0], GL_DYNAMIC_DRAW);
  //--------------------------
  glBindBuffer(GL_ARRAY_BUFFER,0);
  //--------------------------
  Setlength(vM,30); // На всякий случай (взято из учебника).
  Setlength(cM,0);  
  Setlength(nM,30); 
  Setlength(nM,30); 
  flagVBO:=true;
end;
   . . . . . . . . . . .
   . . . . . . . . . . .
// Отрисовка BVO-буффера.
procedure TForm1.DrawBVO();
var
  n: Integer;
  D: GLuint;
begin
  if not flagVBO then exit;
  glEnableClientState(GL_VERTEX_ARRAY); 
  glEnableClientState(GL_NORMAL_ARRAY);
  glEnableClientState(GL_COLOR_ARRAY);
  glBindBuffer( GL_ARRAY_BUFFER, cID );
  glColorPointer(4, GL_FLOAT, 0, nil); 
  glBindBuffer(GL_ARRAY_BUFFER, nID );
  glNormalPointer(GL_FLOAT, 0, nil);
  glBindBuffer(GL_ARRAY_BUFFER, vID );
  glVertexPointer(3, GL_FLOAT, 0, nil);
  D:=0;
  for n:=0 to StripM1-1 do begin  // Фигура без текстуры.
    glDrawArrays(GL_QUAD_STRIP, D, CountM1);
    D:=D+CountM1
  end;
 
  glEnableClientState(GL_TEXTURE_COORD_ARRAY); // Подключаю текстуру здесь. 
  glBindBuffer(GL_TEXTURE_BUFFER, tID );
  glTexCoordPointer(2, GL_FLOAT, 0, nil);
 
  glBindBuffer(GL_ARRAY_BUFFER, 0);    // Прбовал здесь отключать цвет.
  glDisableClientState(GL_COLOR_ARRAY);
 
  glDrawArrays(GL_TRIANGLES, D, CountM2); // Фигура с текстурой.
 
  glBindBuffer(GL_ARRAY_BUFFER, 0);
  glDisableClientState(GL_VERTEX_ARRAY);
  glDisableClientState(GL_NORMAL_ARRAY);
//  glDisableClientState(GL_COLOR_ARRAY); // Пробовал здесь.
  glDisableClientState(GL_TEXTURE_COORD_ARRAY);
end;

or iy:=0 to ny-1 do begin
    for ix:=0 to nx do begin
      vM[n].X:=R*sin (iy*pi/ny)*cos(2*ix*pi/nx);
      vM[n].Y:=R*sin (iy*pi/ny)*sin(2*ix*pi/nx);
      vM[n].Z:=R*cos(iy*pi/ny);
      nM[n].X:=vM[n].X;
      nM[n].Y:=vM[n].Y;
      nM[n].Z:=vM[n].Z;
      n:=n+1;
      vM[n].X:= R*sin ((iy+1)*pi/ny)*cos(2*ix*pi/nx);
      vM[n].Y:= R*sin ((iy+1)*pi/ny)*sin(2*ix*pi/nx);
      vM[n].Z:= R*cos((iy+1)*pi/ny);
      nM[n].X:=vM[n].X;
      nM[n].Y:=vM[n].Y;
      nM[n].Z:=vM[n].Z;
      n:=n+1;
    end;
  end;

// Загрузка текстур из файла.
procedure TForm1.LoadTextureFromBMP(const AFileName: String; var ATexture: TGLTexture);
var
  i, j: Integer;
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  try
    bmp.LoadFromFile(AFileName); // Загрузка рисунка в битовую матрицу.
    ATexture.Height:= bmp.Height; // Размер текстуры.
    ATexture.Width := bmp.Width;
    SetLength(ATexture.Data, bmp.Width* bmp.Height*3); // Установить размер массива.
    for i:=0 to bmp.Height-1 do // Заполнение динамического массива.
      for j:=0 to bmp.Width-1 do begin
        ATexture.Data[(i*bmp.Width+j)*3+0]:=GetRValue(bmp.Canvas.Pixels[j, i]);
        ATexture.Data[(i*bmp.Width+j)*3+1]:=GetGValue(bmp.Canvas.Pixels[j, i]);
        ATexture.Data[(i*bmp.Width+j)*3+2]:=GetBValue(bmp.Canvas.Pixels[j, i]);
      end;
  finally
    bmp.Free; // По окончанию не забыть удалить битовую матрицу.
  end;
end;

// Отрисовка в OpenGLControl.
procedure TForm1.OpenGLControl1Paint(Sender: TObject);
begin
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  glMatrixMode(GL_PROJECTION);
  glLoadIdentity();
  gluPerspective(30.0, OpenGLControl1.Width/OpenGLControl1.Height, 0.1, 15);
  glMatrixMode(GL_MODELVIEW);
  glLoadIdentity();
  glTranslatef(Xsm, Ysm, -(5+Gkam));
  glRotatef(Xkam, 1,0,0);
  glRotatef(Ykam*5, 0,1,0);
  glRotatef(Zkam*5, 0,0,1);
  DrawBVO;
  OpenGLControl1.SwapBuffers;
end;