* fix compilation

rtl/objpas/types.pp

@@ -177,6 +177,7 @@ type
      constructor Create(const ax,ay,az:single);
      procedure   Offset(const adeltax,adeltay,adeltaz:single); inline;
      procedure   Offset(const adelta:TPoint3D); inline;
+   public  
      case Integer of
       0: (data:TSingle3Array);
       1: (x,y,z : single);