OpenGL: ошибка в библиотеке glut.h

//---------------------------------------------------------------------------
 
#include <vcl.h>
 
//#include <gl\gl.h>                // Заголовочные файлы для библиотеки OpenGL32
//#include <gl\glu.h>              // Заголовочные файлы для библиотеки GLu32
//#include <gl\glaux.h>
#include <gl\glut.h>
 
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
  HGLRC ghRC;
  HDC   ghDC;
  void Draw();
 
 
 BOOL bSetupPixelFormat(HDC hdc)
      {
 PIXELFORMATDESCRIPTOR pfd, *ppfd;
    int pixelformat;
 
    ppfd = &pfd;
 
    ppfd->nSize = sizeof(PIXELFORMATDESCRIPTOR);
    ppfd->nVersion = 1;
    ppfd->dwFlags = PFD_DRAW_TO_WINDOW | PFD_SUPPORT_OPENGL | PFD_DOUBLEBUFFER;
    ppfd->dwLayerMask = PFD_MAIN_PLANE;
    ppfd->iPixelType = PFD_TYPE_RGBA;//формат указания цвета. Может принимать значения
    // PFD_TYPE_RGBA (цвет указывается четырьмя параметрами
    //RGBA - красный, зленный, синий и альфа) и PFD_TYPE_COLORINDEX (цвет указывается
    // индексом в палитре).
    ppfd->cColorBits = 16;//глубина цвета
    ppfd->cDepthBits = 16;//размер буфера глубины (Z-Buffer)
 
    ppfd->cAccumBits = 0;
    ppfd->cStencilBits = 0;//размер буфера трафарета (мы его пока не используем)
 
    //ЧузПикселФормат подбирает формат пикселей, максимально удовлетворяющий нашим требованиям,
    //и возвращает его дескриптор, а SetPixelFormat() устанавливает его в контексте устройства
    // (dc).
    if ((pixelformat = ChoosePixelFormat(hdc, ppfd)) == 0)
    {
        MessageBox(NULL, "ChoosePixelFormat failed", "Error", MB_OK);
        return FALSE;
    }
    if (SetPixelFormat(hdc, pixelformat, ppfd) == FALSE)
    {
        MessageBox(NULL, "SetPixelFormat failed", "Error", MB_OK);
        return FALSE;
    }
    return TRUE;
      }
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormResize(TObject *Sender)
{
  glViewport( 0, 0, Width, Height );
  //glViewport(0,0,300,300);
  glMatrixMode( GL_PROJECTION );
  glLoadIdentity();
  glOrtho(-5,5, -5,5, 2,12);
  gluLookAt(0,0,5, 0,0,0, 0,1,0);
  glMatrixMode( GL_MODELVIEW );
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
     {
  ghDC = GetDC(Handle);//??
  if (!bSetupPixelFormat(ghDC))
      Close();
  //После того как в контексте устройства установлен формат пикселей, нужно создать
  // контекст воспроизведения (Rendering Context) для этого в OpenGL определены
  //следующие функции:
  //HGLRC wglCreateContext(HDC hdc);
  //BOOL wglMakeCurrent(HDC hdc, HGLRC hglrc);
 
  ghRC = wglCreateContext(ghDC);
  wglMakeCurrent(ghDC, ghRC);
 
  glClearColor(0.0, 0.0, 0.0, 0.0);
 
  FormResize(Sender);//??
 
  glEnable(GL_COLOR_MATERIAL);
  glEnable(GL_DEPTH_TEST);
 
  glEnable(GL_LIGHTING);
  glEnable(GL_LIGHT0);
    float p[4]={3,3,3,1},
          d[3]={-1,-1,-3};
  glLightfv(GL_LIGHT0,GL_POSITION,p);
  glLightfv(GL_LIGHT0,GL_SPOT_DIRECTION,d);
      }
}
//-----------------------------function-------------------------------------------
void Draw()
      {
  glClear(GL_DEPTH_BUFFER_BIT|GL_COLOR_BUFFER_BIT);
 
  GLUquadricObj *quadObj;
  quadObj=gluNewQuadric();
 
  gluQuadricDrawStyle(quadObj, GLU_FILL);
  glColor3f(1,0,0);
  gluSphere(quadObj, 2,10,10);
    glRotatef(3, 0,1,0);
  gluDeleteQuadric(quadObj);
 
  SwapBuffers(ghDC);
      }
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
if(ghRC)
     {
          wglMakeCurrent(ghDC,0);
          wglDeleteContext(ghRC);
     }
          if(ghDC)
          ReleaseDC(Handle, ghDC);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
Draw();
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TTimer *Timer1;
    void __fastcall FormResize(TObject *Sender);
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
    void __fastcall Timer1Timer(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

extern _CRTIMP void __cdecl exit(int);