When make a TValue from a class now the type info of the value will be the same of the class.

packages/rtl/src/rtti.pas

@@ -1002,6 +1002,9 @@ begin
   end
   else
     Result.FData := ABuffer;
+
+  if (Result.FTypeInfo.Kind = tkClass) and Result.IsClass and not Result.IsEmpty then
+    Result.FTypeInfo := Result.AsObject.ClassInfo;
 end;
 
 generic class procedure TValue.Make<T>(const Value: T; var Result: TValue);