3D графика в Lazarus

procedure TForm1.FormCreate(Sender: TObject);
begin
  GLbox := TOpenGLControl.Create(Self);
  GLbox.AutoResizeViewport := true;
//  GLBox.Parent             := Self; // Эта строка пересаживает GLBox на форму
  GLBox.MultiSampling      := 4;
  GLBox.Align              := alClient;
  GLBox.OnPaint            := @GLboxPaint; // for "mode delphi" this would be "GLBox.OnPaint := GLboxPaint"
  GLBox.invalidate;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  OpenGLControl1.AutoResizeViewport := true;
  OpenGLControl1.MultiSampling      := 4;
  OpenGLControl1.Align              := alClient;
  OpenGLControl1.OnPaint            := @GLboxPaint; // Можно назначить обработчик через инспектор объектов, а эту строку убрать
//  OpenGLControl1.Invalidate; // Вроде, это не нужно
end;

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
// Подключение библиотек. Для работы C OpenGL необходимы OpenGLContext, GL, GLU
uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls, ComCtrls, OpenGLContext, GL, GLU;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    OpenGLControl1: TOpenGLControl;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure OpenGLControl1Paint(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
    fleft, fright, ftop, fbottom: GLdouble;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
 
begin
  fleft := -1;
  fright := 1;
  ftop := 1;
  fbottom := 0;
end;
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
  );
begin
  if Key = ord('Q') then fleft := fleft + 0.1;
  if Key = ord('W') then fleft := fleft - 0.1;
  if Key = ord('O') then fright := fright + 0.1;
  if Key = ord('P') then fright := fright - 0.1;
 
  Caption := Format('%.2f, %.2f, %.2f, %.2f', [fleft, fright, fbottom, ftop]);
 
  OpenGLControl1.Invalidate;
end;
 
procedure TForm1.OpenGLControl1Paint(Sender: TObject);
begin
//  OpenGLControl1.
  glClearColor (0.2, 0.4, 0.6, 0); // цвет фона
  glClear (GL_COLOR_BUFFER_BIT);      // очистка буфера цвета
  glMatrixMode(GL_MODELVIEW);  // Выбор видовой матрицы
  glLoadIdentity();   //  Установка в единичные значения
//  glOrtho(-0.5, 1, 0, 1, -1 ,1); // Установка проекции окна
  glOrtho(fleft, fright, fbottom, ftop, -1 ,1); // Установка проекции окна
  //glTranslatef(0.5,0.5,0);  // Сдвиг
  //glRotatef(10, 0, 0, 0);   // Вращение
  glBegin(GL_TRIANGLES);      // Рисование треугольника
    glColor3f(1, 0, 0);     // Красный
    glVertex3f(0.0, 1.0, 0.0 ); // Верх треугольника (Передняя)
    glColor3f(0, 1, 0);
    glVertex3f( -1.0, -1.0 , 0.0);
    glColor3f(0, 0, 1);
    glVertex3f( 1.0, -1.0, 0.0);
  glEnd;
  OpenGLControl1.SwapBuffers; // Отрисовка из буффера
end;
 
end.