Tes := gluNewTess;

      gluTessCallback(Tes, GLU_TESS_ERROR, @errorCallback);
      gluTessCallback(Tes, GLU_TESS_BEGIN, @glBegin);
      gluTessCallback(Tes, GLU_TESS_VERTEX, @glVertex3fv);
      gluTessCallback(Tes, GLU_TESS_END, @glEnd);

      gluTessBeginPolygon (Tes, nil);

      gluTessBeginContour(Tes);
      for PInd:=0 to High(Pnts) do
       gluTessVertex(Tes, @Pnts[PInd], @Pnts[PInd]);
      gluTessEndContour(Tes);

      gluTessEndPolygon(Tes);

      gluDeleteTess(Tes);