diff --git a/packages/fcl-base/src/inc/inifiles.pp b/packages/fcl-base/src/inc/inifiles.pp
index 62859aac65..dda57e9231 100644
--- a/packages/fcl-base/src/inc/inifiles.pp
+++ b/packages/fcl-base/src/inc/inifiles.pp
@@ -57,6 +57,7 @@ uses classes, sysutils;
 
 type
   TIniFileKey = class
+  Private
     FIdent: string;
     FValue: string;
   public
@@ -76,6 +77,7 @@ type
   end;
 
   TIniFileSection = class
+  private
     FName: string;
     FKeyList: TIniFileKeyList;
   public