diff --git a/packages/rtl/classes.pas b/packages/rtl/classes.pas
index 16917ae..50a739e 100644
--- a/packages/rtl/classes.pas
+++ b/packages/rtl/classes.pas
@@ -8159,7 +8159,7 @@ begin
         SetOrdProp(Instance, PropInfo, ReadInteger);
       end;
     tkBool:
-      SetOrdProp(Instance, PropInfo, Ord(ReadBoolean));
+      SetBoolProp(Instance, PropInfo, ReadBoolean);
     tkChar:
       SetOrdProp(Instance, PropInfo, Ord(ReadChar));
     tkEnumeration: