procedure TForm1.Koule;
var
  Cesta : string;
  qObj: 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);

  qobj := gluNewQuadric();                    // vytvoří nový čtyřúhelník
  gluQuadricTexture(qobj, true);              // otexturuje kouli
  gluSphere(qobj, 0.75, 20, 20);              // zobrazí kouli s poloměrem 0.75 a sítí 20 na 20 čtyřúhelníků

  glEndList;

end;