procedure TForm1.Ctverec;
var Cesta : string;
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);
  glBegin(GL_POLYGON);
    glTexCoord2f(0,0);
    glVertex3f( 0.5,-0.5,0.0);
    glTexCoord2f(1,0);
    glVertex3f(-0.5,-0.5,0.0);
    glTexCoord2f(1,1);
    glVertex3f(-0.5, 0.5,0.0);
    glTexCoord2f(0,1);
    glVertex3f( 0.5, 0.5,0.0);

  glEnd;
  glEndList
end;