diff --git a/compiler/nobj.pas b/compiler/nobj.pas
index 02a5e691b5..e13f2d745c 100644
--- a/compiler/nobj.pas
+++ b/compiler/nobj.pas
@@ -843,7 +843,7 @@ implementation
                 including its virtual methods. We only want the non-method
                 fields, as the methods will be added automatically based on
                 the VMT we generated here only add the 12 first fields }
-              for i:=0 to 13 do
+              for i:=0 to 11 do
                 begin
                   sym:=tsym(trecorddef(systemvmt).symtable.SymList[i]);
                   if sym.typ in [procsym,propertysym] then
diff --git a/rtl/inc/objpash.inc b/rtl/inc/objpash.inc
index 997df9bd0e..800f3625fe 100644
--- a/rtl/inc/objpash.inc
+++ b/rtl/inc/objpash.inc
@@ -99,11 +99,6 @@
        PVmt = ^TVmt;
        PPVmt = ^PVmt;
        TVmt = record
-       private
-         function GetvParent: PVmt; inline;
-       public
-         property vParent: PVmt read GetvParent;
-       public
          vInstanceSize: SizeInt;
          vInstanceSize2: SizeInt;
          vParentRef: {$ifdef VER3_0}PVmt{$else}PPVmt{$endif};
@@ -129,6 +124,10 @@
          vEquals: CodePointer;
          vGetHashCode: CodePointer;
          vToString: CodePointer;
+       private
+         function GetvParent: PVmt; inline;
+       public
+         property vParent: PVmt read GetvParent;
        end;
 
        PGuid = ^TGuid;