* GetDataSize is 0 for empty TValue

packages/rtl-objpas/src/inc/rtti.pp

@@ -2860,6 +2860,8 @@ begin
     Result:=FData.FValueData.GetDataSize;
     exit;
   end;
+  if IsEmpty then 
+    exit;
   case Kind of
     tkEnumeration,
     tkBool,