diff --git a/rtl/objpas/types.pp b/rtl/objpas/types.pp
index 2d0e4733a9..d2e9367b3b 100644
--- a/rtl/objpas/types.pp
+++ b/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);