* Fixes after re-running test

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

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

packages/rtl-objpas/tests/tests.rtti.value.pas

@@ -1787,7 +1787,7 @@ begin
   s:=[low(TTestEnum),high(TTestEnum)];
   TValue.Make(@s, TypeInfo(TTestSet), value);
   CheckEquals(SizeOf(TTestSet), value.DataSize, 'Size of TTestSet differs');
-  p := Nil;
+  p := Self;
   TValue.Make(@p, TypeInfo(Pointer), value);
   CheckEquals(SizeOf(Pointer), value.DataSize, 'Size of Pointer differs');
 end;