void __fastcall TFormView1::FormCreate(TObject *Sender)
{
   ghDC = GetDC(Handle);
   if (!bSetupPixelFormat(ghDC)) Close();
   ghRC = wglCreateContext(ghDC);
   wglMakeCurrent(ghDC, ghRC);
   glClearColor(0.3, 0.3, 0.3, 0.0);
   FormResize(Sender);
}

void __fastcall TFormView1::FormResize(TObject *Sender)
{
  glViewport(10, 5, 300, 200);
  glMatrixMode ( GL_PROJECTION );
  glLoadIdentity();
  glOrtho( MinX,MaxX, MinY,MaxY, MinZ,MaxZ );
  
  glMatrixMode ( GL_MODELVIEW );
  glLoadIdentity();
  gluLookAt( (MaxX-MinX)/2.0, (MaxY-MinY)/2.0, (MaxZ-MinZ)/2.0, 
                  (MaxX-MinX)/2.0, (MaxY-MinY)/2.0, (MaxZ-MinZ)/2.0 + 1.0, 
                 0.0, 1.0, 0.0 );
  InvalidateRect ( Handle, NULL, False );
}
 
void __fastcall TFormView1::FormClose(TObject *Sender, TCloseAction &Action)
{
  if(ghRC)
  {
    wglMakeCurrent(ghDC,0);
    wglDeleteContext(ghRC);
  }
  if(ghDC)ReleaseDC(Handle, ghDC);
}

void __fastcall TFormView1::FormPaint(TObject *Sender)
{
  glClear( GL_DEPTH_BUFFER_BIT |  GL_COLOR_BUFFER_BIT );
 
  glPointSize(2);
  glColor3f(0.0,0.0,1.0);
  
  glBegin(GL_POINTS);
  for (int i=0; i<Form1->PointCount; i++)
  {
    if (MinX>Form1->Files[i].X) MinX=Form1->Files[i].X;
    if (MinY>Form1->Files[i].Y) MinY=Form1->Files[i].Y;
    if (MinZ>Form1->Files[i].Z) MinZ=Form1->Files[i].Z;
 
    if (MaxX<Form1->Files[i].X) MaxX=Form1->Files[i].X;
    if (MaxY<Form1->Files[i].Y) MaxY=Form1->Files[i].Y;
    if (MaxZ<Form1->Files[i].Z) MaxZ=Form1->Files[i].Z;
 
 
    glVertex3d(Form1->Files[i].X, Form1->Files[i].Y, Form1->Files[i].Z);
  }
  glEnd();
 
      //+X
    glColor3f(1,0,0);
    glBegin(GL_LINES);
    glVertex3f(MinX+10,MinY,MinZ);
    glVertex3f(MaxX+10,MinY,MinZ);
    glEnd();
 
    //+Y
    glColor3f(0,1,0);
    glBegin(GL_LINES);
    glVertex3f(MinX,MinY+10,MinZ);
    glVertex3f(MinX,MaxY+10,MinZ);
    glEnd();
 
    //+Z
    glColor3f(0,0,1);
    glBegin(GL_LINES);
    glVertex3f(MinX,MinY,MinZ);
    glVertex3f(MinX,MinY,MaxZ);
    glEnd();
 
  SwapBuffers(ghDC);
}