rtl: added overload GetClass(UnitName,ClassName), implemented UnregisterClass, overload TStream.WriteComponent(Instance,WriteUnitName)

rtl/objpas/classes/classesh.inc

@@ -1805,6 +1805,8 @@ type
   TFindComponentClassExEvent = procedure(Reader: TReader;
     const aName, anUnitname, aClassName: string;
     var ComponentClass: TComponentClass) of object;
+  TFindComponentClassExEvent = procedure(Reader: TReader; const anUnitname, ClassName: string;
+    var ComponentClass: TComponentClass) of object;
   TCreateComponentEvent = procedure(Reader: TReader;
     ComponentClass: TComponentClass; var Component: TComponent) of object;
 

rtl/objpas/classes/reader.inc

@@ -159,7 +159,7 @@ begin
 end;
 
 procedure TBinaryObjectReader.BeginComponent(var Flags: TFilerFlags;
-  var AChildPos: Integer; var CompClassName, CompName: String);
+  var AChildPos: Integer; var CompUnitName, CompClassName, CompName: String);
 var
   CompUnitName: String;
 begin