diff --git a/lcl/shellctrls.pas b/lcl/shellctrls.pas
index ddf8fce694..7efb1d245a 100644
--- a/lcl/shellctrls.pas
+++ b/lcl/shellctrls.pas
@@ -389,9 +389,9 @@ type
 
   TShellTreeNode = class(TTreeNode)
   private
-    FFileInfo: TSearchRec;
     FBasePath: String;
   protected
+    FFileInfo: TSearchRec;
     procedure SetBasePath(ABasePath: String);
   public
     function ShortFilename: String;