diff --git a/packages/rtl/classes.pas b/packages/rtl/classes.pas
index 140dedf..3408a04 100644
--- a/packages/rtl/classes.pas
+++ b/packages/rtl/classes.pas
@@ -8430,7 +8430,7 @@ begin
         vaNil:
           begin
             FDriver.ReadValue;
-            SetOrdProp(Instance, PropInfo, 0)
+            SetObjectProp(Instance, PropInfo, nil)
           end;
         vaCollection:
           begin