From 5212f2b851389f24c203745a9f3e1d32c5708454 Mon Sep 17 00:00:00 2001
From: Henrique Gottardi Werlang <henriquewerlang@hotmail.com>
Date: Fri, 28 Feb 2025 10:38:49 -0300
Subject: [PATCH] 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 | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/packages/rtl/src/rtti.pas b/packages/rtl/src/rtti.pas
index 0994643..7388a7c 100644
--- a/packages/rtl/src/rtti.pas
+++ b/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);