- procedure TglForm.FormCreate(Sender: TObject);
 - var
 - myPalette : HPALETTE;
 - begin
 - ChangeDisplay;
 - if not InitOpenGL then
 - raise Exception.Create('Fehler beim Initialisieren von OpenGL!');
 - myDC := GetDC(Handle);
 - myRC:= CreateRenderingContext(myDC, [opDoubleBuffered] ,32, 0, 0, 0, 0, myPalette);
 - ActivateRenderingContext(myDC, myRC);
 - SetupOpenGL(ClientWidth,ClientHeight);
 - gl2DText.BuildFont;
 - end;
 
