* Lower visibility of some fields in aggregates

packages/fcl-base/src/fpexprpars.pp

@@ -654,7 +654,7 @@ Type
   { TAggregateMin }
 
   TAggregateMin = Class(TAggregateExpr)
-  Public
+  Protected
     FFirst: Boolean;
   Public
     Procedure InitAggregate; override;
@@ -664,7 +664,7 @@ Type
   { TAggregateMax }
 
   TAggregateMax = Class(TAggregateExpr)
-  Public
+  Protected
     FFirst: Boolean;
   Public
     Procedure InitAggregate; override;