Закрашивание при анимации

[TPK93]

Проблема такова, анимирую кручение объекта(паралелограмм с нанесенной текстурой), который находится на другом статическом объекте(прямоугольник на него тоже нанесена текстура), нужно чтобы паралелограмм закрашивался, но при анимации происходит закрашивание не только нужного объекта, но и прямоугольника(хотя команду закрашивания пишу только в дисплейном списке паралелограмма). Итак как сделать по божески?))(Есть идея с выносом дисплейного списка за процедуру, но т.к. с помощью OpenGL рисую недавно реализовать не вышло..)

procedure TForm1.Timer1Timer(Sender: TObject); //таймер анимирующий
begin
     K:=K+10; //приращение ротейта
     Draw;   //рисующая процедура
 
 end;
procedure TForm1.Draw;
 
begin
  wglMakeCurrent(Canvas.Handle, hrc);
    glMatrixMode(GL_PROJECTION);
    glLoadIdentity();
    glOrtho(-1.0,1.0,-1.0,1.0,-1.0,1.0);
   glMatrixMode(GL_MODELVIEW);
   glLoadIdentity();
  //==========================================
   glClear(GL_COLOR_BUFFER_BIT);
   glEnable(GL_DEPTH_TEST);
   glClear(GL_DEPTH_BUFFER_BIT);
   glShadeModel(GL_FLAT);
 
   //===============================Прямоугольник
   glEnable(GL_TEXTURE_2D);
      LoadTexture ('TE2.bmp', TexName1);
      LoadTexture ('TEXX1.bmp', TexName2);
      glBindTexture(GL_TEXTURE_2D,TexName1);
     glBegin (GL_QUADS);
      glTexCoord2f(0,1);
     glVertex3f( -1, 1, -0.5);
 
      glTexCoord2f(0,0);
      glVertex3f(-1,-1, -0.5);
 
      glTexCoord2f(1,0);
     glVertex3f( 1,-1, -0.5);
 
      glTexCoord2f(1,1);
     glVertex3f( 1,1, -0.5);
     glEnd();
     //============================= Паралелограмм
   glBindTexture(GL_TEXTURE_2D,TexName2);
   glNewList(1, GL_COMPILE);
   glBegin(GL_TRIANGLE_FAN);
                      glColor3f(0,1,0);   //===============закрашивающая команда!
                      glTexCoord2f(0.1,0.25);
                      glVertex3f(-0.5,0.8,0);
                      glTexCoord2f(0.25,0.75);
                      glVertex3f(0.5,0.5,0);
                      glTexCoord2f(0.9,0.75);
                      glVertex3f(0.5,-0.8,0);
                      glTexCoord2f(0.75,0.25);
                       glVertex3f(-0.5,-0.5,0);
 
   glEnd();
   glEndList;
   glPushMatrix;
   SwapBuffers(hrc);
        glRotate(K, 0,0,1);
    glCallList(1);
 
  //============================================================================
  wglMakeCurrent (0, 0);
end;