diff --git a/ide/editoroptions.pp b/ide/editoroptions.pp
index 682f006ad4..9ceefc4f58 100644
--- a/ide/editoroptions.pp
+++ b/ide/editoroptions.pp
@@ -422,7 +422,7 @@ type
 const
 
   (* When adding new entries, ensure that resourcestrings are re-assigned in InitLocale *)
-  EditorOptionsFoldInfoPas: Array [0..19] of TEditorOptionsFoldInfo
+  EditorOptionsFoldInfoPas: Array [0..21] of TEditorOptionsFoldInfo
   = (
       (Name:  dlgFoldPasProcedure;     Xml:     'Procedure';
        Index: ord(cfbtProcedure);    Enabled: True),
@@ -467,7 +467,12 @@ const
       (Name:  dlgFoldPasIfDef;         Xml:     'IfDef';
        Index: ord(cfbtIfDef);        Enabled: False),
       (Name:  dlgFoldPasUserRegion;    Xml:     'UserRegion';
-       Index: ord(cfbtRegion);       Enabled: True)
+       Index: ord(cfbtRegion);       Enabled: True),
+
+      (Name:  dlgFoldPasAnsiComment;   Xml:     'AnsiComment';
+       Index: ord(cfbtAnsiComment);  Enabled: True),
+      (Name:  dlgFoldPasBorComment;    Xml:     'BorComment';
+       Index: ord(cfbtBorCommand);   Enabled: True)
     );
 
   EditorOptionsFoldInfoLFM: Array [0..2] of TEditorOptionsFoldInfo
@@ -561,8 +566,8 @@ const
     TEditorOptionsFoldRecord =
     ( (Count:  0; Info: nil), // none
       (Count:  0; Info: nil), // text
-      (Count: 20; Info: {$IFDEF FPC}@{$ENDIF}EditorOptionsFoldInfoPas[0]), // Freepas
-      (Count: 20; Info: {$IFDEF FPC}@{$ENDIF}EditorOptionsFoldInfoPas[0]), // pas
+      (Count: 22; Info: {$IFDEF FPC}@{$ENDIF}EditorOptionsFoldInfoPas[0]), // Freepas
+      (Count: 22; Info: {$IFDEF FPC}@{$ENDIF}EditorOptionsFoldInfoPas[0]), // pas
       (Count:  3; Info: {$IFDEF FPC}@{$ENDIF}EditorOptionsFoldInfoLFM[0]), // lfm
       (Count:  5; Info: {$IFDEF FPC}@{$ENDIF}EditorOptionsFoldInfoXML[0]), // xml
       (Count:  3; Info: {$IFDEF FPC}@{$ENDIF}EditorOptionsFoldInfoHTML[0]), // html
diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas
index 1c4abe669e..620f55543c 100644
--- a/ide/lazarusidestrconsts.pas
+++ b/ide/lazarusidestrconsts.pas
@@ -1509,6 +1509,8 @@ resourcestring
   dlgFoldPasAsm             = 'Asm';
   dlgFoldPasIfDef           = '{$IfDef}';
   dlgFoldPasUserRegion      = '{%Region}';
+  dlgFoldPasAnsiComment     = 'Comment (* *)';
+  dlgFoldPasBorComment      = 'Comment { }';
 
   dlgFoldLfmObject      = 'Object (inherited, inline)';
   dlgFoldLfmList        = 'List <>';