* Add SkipValue to TReader

rtl/objpas/classes/classesh.inc

@@ -1864,6 +1864,7 @@ type
     function EndOfList: Boolean;
     procedure EndReferences;
     procedure FixupReferences;
+    procedure SkipValue;
     function NextValue: TValueType;
     //Please don't use read, better use ReadBinary whenever possible
     //uuups, ReadBinary is protected ..

rtl/objpas/classes/reader.inc

@@ -1070,6 +1070,12 @@ begin
   end;
 end;
 
+procedure TReader.SkipValue;
+
+begin
+  FDriver.SkipValue;
+end;
+
 procedure TReader.ReadData(Instance: TComponent);
 var
   SavedOwner, SavedParent: TComponent;