procedure TMainForm.FormCreate(Sender: TObject);
begin
  inherited;   //这里为什么用  "inherited" ????????????????????????????
  //在这里做初始化工作
  //修改DC的象素格式,使之支持OpenGL绘制
  initDC;
  RC := wglCreateContext(DC);
  wglMakeCurrent(DC, RC);
  //初始化GL绘制系统
  initGL;
end;