* Fix missing reference to procedure streaming

packages/rtl/classes.pas

@@ -7719,7 +7719,7 @@ begin
         if TTypeInfoSet(PropType).CompType.Kind=tkEnumeration then
           SetOrdProp(Instance, PropInfo, FDriver.ReadSet(TTypeInfoEnum(TTypeInfoSet(PropType).CompType)));
       end;
-    tkMethod:
+    tkMethod, tkRefToProcVar:
       if FDriver.NextValue = vaNil then
       begin
         FDriver.ReadValue;
@@ -7776,7 +7776,7 @@ begin
     {tkint64:
       SetInt64Prop(Instance, PropInfo, ReadInt64);}
     else
-      raise EReadError.CreateFmt(SUnknownPropertyType, [Ord(PropType.Kind)]);
+      raise EReadError.CreateFmt(SUnknownPropertyType, [Str(PropType.Kind)]);
   end;
 end;
 

packages/rtl/rtlconsts.pas

@@ -60,7 +60,7 @@ Resourcestring
   SInvalidPropertyValue           = 'Invalid value for property';
   SInvalidImage                   = 'Invalid stream format';
   SUnknownProperty                = 'Unknown property: "%s"';
-  SUnknownPropertyType            = 'Unknown property type %d';
+  SUnknownPropertyType            = 'Unknown property type %s';
   SAncestorNotFound               = 'Ancestor class for "%s" not found.';
   SUnsupportedPropertyVariantType = 'Unsupported property variant type %d';
   SPropertyException              = 'Error reading %s%s%s: %s';