procedure TForm1.Kuzel;
var
  Cesta : string;
  plast, zakl: GLUquadricObj;
begin

  Cesta := ExtractFilePath(Application.ExeName);
  glNewList(Model,GL_COMPILE);
  LoadBitmap(Cesta + 'Image1.bmp');
  glTexImage2d(GL_Texture_2D,0,3,Velikost,Velikost,0,GL_RGB,GL_Unsigned_byte,@buffer);

  plast := gluNewQuadric();                    //vytvoří nový objekt (plášť kužele)
  zakl := gluNewQuadric();                     //vytvoří nový objekt (základnu kužele)
  gluQuadricOrientation(plast,GLU_OUTSIDE);    //vnější strana pláště odráží světlo
  gluQuadricOrientation(zakl,GLU_INSIDE);      //vnější strana základny odráží světlo
  gluQuadricTexture(plast, true);              //otexturuje plášť
  gluQuadricTexture(zakl, true);               //otexturuje základnu
  gluCylinder(plast, 1, 0, 2, 20, 5);          //zobrazí plášť
  gluDisk(zakl, 0, 1, 20, 1);                  //zobrazí základnu

glEndList;

end;