diff --git a/lcl/shellctrls.pas b/lcl/shellctrls.pas
index f4b2e8c42c..63190d5c7c 100644
--- a/lcl/shellctrls.pas
+++ b/lcl/shellctrls.pas
@@ -498,8 +498,7 @@ begin
   FInitialRoot := '';
 
   // Initial property values
-
-  ObjectTypes:= [otFolders];
+  FObjectTypes:= [otFolders];
 
   // Populating the base dirs is done in Loaded
 end;