procedure TForm1.Valec;
var
  Cesta : string;
  plast, zakl1, zakl2: PGLUquadricObj;
begin
  Cesta := ExtractFilePath(Application.ExeName);
  LoadBitmap(Cesta + 'Image1.bmp');
  glBindTexture(GL_TEXTURE_2D, 0);
  glTexImage2d(GL_Texture_2D,0,3,Velikost,Velikost,0,GL_RGB,GL_Unsigned_byte,buffer);


  glNewList(Model,GL_COMPILE);

  plast := gluNewQuadric();                     //vytvoří nový objekt (plášť válce)
  zakl1 := gluNewQuadric();                     //vytvoří nový objekt (první základnu válce)
  zakl2 := gluNewQuadric();
  gluQuadricOrientation(plast,GLU_OUTSIDE);     //vnější strana pláště odráží světlo
  gluQuadricOrientation(zakl1,GLU_INSIDE);      //vnější strana základny odráží světlo
  gluQuadricTexture(plast, gl_true);            //otexturuje plášť
  gluQuadricTexture(zakl1, gl_true);            //otexturuje první základnu
  gluQuadricTexture(zakl2, gl_true);
  gluCylinder(plast, 1, 1, 2, 20, 5);           //zobrazí plášť
  gluDisk(zakl1, 0, 1, 20, 1);                  //zobrazí první základnu
  glTranslatef(0,0,2);                          //posune druhou základnu o výšku kužele
  gluDisk(zakl2, 0, 1, 20, 1);                  //zobrazí druhou základnu

  glEndList;

  glEnable(GL_BLEND);                           //zapne průhlednost textur
  glBlendFunc(GL_ONE, GL_ONE);                  //nastaví průhlednost textur

end;