uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs,ExtCtrls,OpenGL, //Подключаем OpenGL32.dll,
  dglut;//модуль для рисования правильных объектов одной строкой кода

 procedure FormCreate(Sender: TObject);

  procedure FormDestroy(Sender: TObject);

  procedure FormResize(Sender: TObject);

 procedure Initsvet;

  procedure SetPixFormat;// формат пукселя

  procedure Draww;

  procedure WMPaint( var Msg: TWMPaint );// похожа на OnPaint

  message WM_PAINT; // сообщение от OnPaint

 DC:HDC; // переменные для получения контекста воспроизведения

  hrc:HGLRC; //

  Angle:GLfloat; // угол, на который будет поворачиваться куб

  procedure initsvet;

  procedure SetPixFormat;

procedure WMPaint(var Msg: TWMPaint); message WM_PAINT;

const

 MaterialColor: Array [0..3] of GLfloat = (0.3, 0.4, 1.0, 1.0);

procedure TForm1.FormCreate(Sender: TObject);

begin

 Angle := 0;

 DC := GetDC(Handle); // получить окно

 SetPixFormat; // установим формат пикселя

 hrc := wglCreateContext(DC);

 wglMakeCurrent(DC, hrc); // сделаем "текущим контекст воспроизведения

 Initsvet; // включим свет

 glMaterialfv(GL_FRONT, GL_AMBIENT_AND_DIFFUSE , @MaterialColor);

 glMatrixMode(GL_MODELVIEW);

 Timer1.Enabled := True; // включим таймер

 GLShadeModel(GL_SMOOTH);

end;

procedure TForm1.initsvet;// СВЕТ //

 const

  fogColor : array[0..3] of GLfloat = (0.7, 0.7, 0.7, 2.0);

var

 fogMode : GLint;

begin

 glEnable(GL_DEPTH_TEST); // разрешить тест глубины

 glEnable(GL_LIGHTING); // разрешить освещённость

 glEnable(GL_LIGHT0); // включить нулевую лампу

end;

procedure TForm1.SetPixFormat;

var

 nPixelFormat: Integer;

 pfd: TPixelFormatDescriptor;

begin

 FillChar(pfd, SizeOf(pfd), 0);

 with pfd do

  begin

  nSize := sizeof(pfd);

  nVersion := 1;

  dwFlags := PFD_DRAW_TO_WINDOW or

  PFD_SUPPORT_OPENGL or

  PFD_DOUBLEBUFFER;

  iPixelType:= PFD_TYPE_RGBA;

  cColorBits:= 24;

  cDepthBits:= 32;

  iLayerType:= PFD_MAIN_PLANE;

  end;

 nPixelFormat := ChoosePixelFormat(DC, @pfd);

 SetPixelFormat(DC, nPixelFormat, @pfd);

end;

procedure TForm1.WMPaint(var Msg: TWMPaint);

var

 ps : TPaintStruct;

begin

BeginPaint(Handle, ps);

 glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT); //очистить цветовой буфер, и буфер глубины

 glClearColor(0.7,0.7,0.7,0.0); // очищать экран серым цветом

 glLoadIdentity; // загрузить матрицу

 glTranslatef(0.0, 0.0, -9.0);

  glRotatef(Angle / (random (1) + 1), 1.0, 0.0, 0.0);

  glRotatef(Angle , 0.0, 0.0, 1.0); //

  glpushmatrix; // сохраним текущу систему координат

  glutsolidcube(2); // нарисуем куб с ребром 2

  glpopmatrix; // восстановим систему координат

 SwapBuffers(DC); // перевернём передний и задний буферы



EndPaint(Handle, ps);

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

 Angle := Angle + 1.0; // увеличиваем угол

  If (Angle >= 360.0) then Angle := 0.0; // если совершён полный оборот, то вернуть в 0

 InvalidateRect(Handle, nil, False); // перерисовать окно

end;

procedure TForm1.FormResize(Sender: TObject);

begin

 glMatrixMode(GL_PROJECTION); // модель матрицы проекционная

 glLoadIdentity; // загрузить матрицу

 gluPerspective(60.0, Width / Height, 1.0, 10.0);

 glViewport(0, 0, Width, Height); // область вывода весь экран

 glMatrixMode(GL_MODELVIEW); // модель матрицы перспективная

 InvalidateRect(Handle, nil, False); // перерисовать всё окно

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

 Timer1.Enabled := False;

 wglMakeCurrent(0, 0); // сделать контекст "текущим"

 wglDeleteContext(hrc); // удалить контекст воспроизведения

 ReleaseDC(Handle, DC); // удалить окно

end;