* Correctly set FDeclaredProperties length

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

@@ -6914,6 +6914,7 @@ begin
       Inc(J);
     end;
   finally
+    SetLength(FDeclaredProperties,PropCount);
     if assigned(List) then
       FreeMem(List);
   end;