* Fix signature of TReader.SetName

rtl/objpas/classes/classesh.inc

@@ -1850,7 +1850,7 @@ type
     procedure PropertyError;
     procedure ReadData(Instance: TComponent);
     function DoReadString(aType : TValueType): rawbytestring;
-    procedure SetName(aComponent: TComponent; aName : string); virtual;
+    procedure SetName(aComponent: TComponent; var aName : string); virtual;
     property PropName: rawbytestring read FPropName;
     property CanHandleExceptions: Boolean read FCanHandleExcepts;
     function CreateDriver(Stream: TStream; BufSize: Integer): TAbstractObjectReader; virtual;

rtl/objpas/classes/reader.inc

@@ -949,7 +949,7 @@ begin
   ReadListEnd;
 end;
 
-procedure TReader.SetName(aComponent: TComponent; aName : string);
+procedure TReader.SetName(aComponent: TComponent; var aName : string);
 
 begin
   if Assigned(FOnSetName) then