* Add TReader.ReadPrefix for Delphi compatibility

rtl/objpas/classes/classesh.inc

@@ -1869,7 +1869,7 @@ type
     //Please don't use read, better use ReadBinary whenever possible
     //uuups, ReadBinary is protected ..
     procedure Read(var Buf; Count: LongInt); virtual;
-
+    procedure ReadPrefix(var aFlags: TFilerFlags; var aChildPos: Integer);  virtual;
     function ReadBoolean: Boolean;
     function ReadChar: AnsiChar;
     function ReadWideChar: WideChar;

rtl/objpas/classes/reader.inc

@@ -1528,6 +1528,15 @@ begin
   end;
 end;
 
+procedure TReader.ReadPrefix(var aFlags: TFilerFlags; var aChildPos: Integer); 
+
+var
+  CompUnitName, CompClassName, CompName : String;
+  
+begin
+  Driver.BeginComponent(aFlags,aChildPos, CompUnitName, CompClassName, CompName);
+end;
+
 function TReader.ReadRootComponent(ARoot: TComponent): TComponent;
 var
   Dummy, i: Integer;