unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OpenGL, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    DC: HDC;
    HRC: HGLRC;
    PixeFormat: TPixelFormatDescriptor;
    Fps: TPaintStruct;
    procedure MySetPixelFormat();
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


{ TForm1 }

procedure TForm1.MySetPixelFormat;
var nPixelFormat: Integer;
begin
  FillChar(PixeFormat, SizeOf(PixeFormat), 0);
  with PixeFormat do begin
    nSize := SizeOf(PixeFormat);
    nVersion := 1;
    dwFlags := PFD_DOUBLEBUFFER + PFD_SUPPORT_OPENGL + PFD_DRAW_TO_WINDOW;
    iPixelType := PFD_TYPE_RGBA;
    cColorBits := 24;
    cAlphaBits := 64;
    cAlphaBits := 64;
    cAccumBits := 64;
    cDepthBits := 32;
    cStencilBits := 64;
    iLayerType := PFD_MAIN_PLANE;
  end;
  nPixelFormat := ChoosePixelFormat(DC, @PixeFormat);
  if nPixelFormat<>0 then begin
    SetPixelFormat(DC, nPixelFormat, @PixeFormat);
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DC := GetDC(Panel1.Handle);
  MySetPixelFormat;
  HRC := wglCreateContext(DC);
  wglMakeCurrent(DC, HRC);
  glMatrixMode(GL_PROJECTION);//Устанавливаем матрицу
  glLoadIdentity();//Загружаем единичную матрицу
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  BeginPaint(Panel1.Handle,Fps);//Начало рисования
    glClearColor(0.5,0.8,0.9,1);
    glClear(GL_COLOR_BUFFER_BIT);
    SwapBuffers(DC);//Поменять местами буферы
  EndPaint(Panel1.Handle,Fps);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  wglMakeCurrent(0,0);
  wglDeleteContext(HRC);
  ReleaseDC(Panel1.Handle,DC);
  DeleteDC(DC);
end;

end.