procedure TForm1.InicializaceOpenGL;
begin
  PixelovyFormat(Canvas.Handle);
  RC := wglCreateContext(Canvas.Handle);
  wglMakeCurrent(Canvas.Handle,RC);
  glClearColor(0.0,0.0,0.0,0.0);
  glShadeModel(GL_FLAT);
  glEnable(GL_DEPTH_TEST);
  glEnable(GL_Texture_2D);
  glPixelStorei(GL_Unpack_Alignment,2);
  glTexParameterf(GL_Texture_2D,GL_Texture_Wrap_S,GL_Repeat);
  glTexParameterf(GL_Texture_2D,GL_Texture_Wrap_T,GL_Repeat);
  glTexParameterf(GL_Texture_2D,GL_Texture_Mag_Filter,GL_Linear);
  glTexParameterf(GL_Texture_2D,GL_Texture_Min_Filter,GL_Linear);
  glTexEnvf(GL_Texture_Env, GL_TEXTURE_ENV_MODE, GL_MODULATE);
  Ctverec;
  NastaveniProstoru;
  wglMakeCurrent(0,0)
end;