Текстурирование фона

[infectioni]

Я пишу программу построения столбцевых диаграмм в 3-д средствами опенгл, как наложить текстуру на фон так, чтобы фон всегда на месте оставался, а полученную диаграмму можно было крутить? Пока что у меня получается, что крутится и фон и диаграмма.

procedure TfrmGL.FormPaint(Sender: TObject);
var
  i,j: integer;
  b1,b2,dif, VS: double;
begin
  glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
  if tr=true then         \\Если разрешено использование текстуры
  begin
     BmpTexture;
     glEnable(GL_TEXTURE_2D);
     glDepthMask(FALSE);
     glColor3f(1,1,1);
     glBegin(GL_QUADS);
       glTexCoord2f(0,0); glVertex3f(-3,-3,-1);
       glTexCoord2f(0,4); glVertex3f(3,-3,-1);
       glTexCoord2f(4,4); glVertex3f(3,3,-1);
       glTexCoord2f(4,0); glVertex3f(-3,3,-1);
     glEnd;
     glDepthMask(TRUE);
     glDisable(GL_TEXTURE_2D);
  end;
  -----------------далее идут построения

[infectioni]

Ребят, подскажите пожалуйста, срочно надо(