From d69b7e791bcd1b0796156b694fb0721ae6ef441c Mon Sep 17 00:00:00 2001
From: Henrique Gottardi Werlang <henriquewerlang@hotmail.com>
Date: Fri, 17 Sep 2021 14:09:20 -0300
Subject: [PATCH] Fixed loading boolean property.

---
 packages/rtl/classes.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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: