procedure TForm1.FormPaint(Sender: TObject);
const
  CLight: array [0..3] of GLfloat = (0, 0, 0, 1);
begin
  glPushMatrix;
  try
    glClearColor(0.5, 0.5, 0.75, 1);
    glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
    glColor3f(1, 0, 0);
    glutSolidSphere(0.1, 20, 20);
    glLightfv(GL_LIGHT0, GL_POSITION, @CLight);
    glTranslatef(0.9, 0, 0);
    glColor3f(0, 1, 0);
    glutSolidSphere(0.3, 20, 20);
  finally
    glPopMatrix;
  end;
  Win32Check(SwapBuffers(FDC));
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  LFmt: TPixelFormatDescriptor;
  LIdx: Integer;
begin
  FDC := GetDC(Handle);
  FillChar(LFmt, SizeOf(LFmt), 0);
  LFmt.nSize := SizeOf(LFmt);
  LFmt.nVersion := 1;
  LFmt.dwFlags := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;
  LFmt.iPixelType := PFD_TYPE_RGBA;
  LFmt.cColorBits := 24;

  LIdx := Win32Check(ChoosePixelFormat(FDC, @LFmt));
  Win32Check(SetPixelFormat(FDC, LIdx, @LFmt));
  FGLCtx := Win32Check(wglCreateContext(FDC));
  Win32Check(wglMakeCurrent(FDC, FGLCtx));

  glEnable(GL_DEPTH_TEST);
  glEnable(GL_COLOR_MATERIAL);
  glEnable(GL_LIGHTING);
  glEnable(GL_LIGHT0);
end;