- procedure TForm1.FormCreate(Sender: TObject);
 - var
 -  Dummy: HPalette;
 - begin
 -  //
 -  if not InitOpenGL then
 -    raise Exception.Create('OpenGL Initialisierung fehlgeschlagen!');
 -  fDC := GetDC(handle);
 -  fRC := CreateRenderingContext(fDC,[opDoubleBuffered],32,0,0,0,0,Dummy);
 -  ActivateRenderingContext(fDC,fRC);
 -  glClearColor(0.0,0.0,0.0,0.0);
 - end;
 - procedure TForm1.FormDestroy(Sender: TObject);
 - begin
 -  DeactivateRenderingContext();
 -  DestroyRenderingContext(fRC);
 -  closeOpenGL();
 - end;
 - procedure TForm1.FormPaint(Sender: TObject);
 - begin
 -  glClear(GL_COLOR_BUFFER_BIT);
 -  SwapBuffers(fDC);
 - end;
 
