diff --git a/ide/editoroptions.pp b/ide/editoroptions.pp
index 829f95a86d..952a1b8dd6 100644
--- a/ide/editoroptions.pp
+++ b/ide/editoroptions.pp
@@ -435,7 +435,7 @@ type
 const
 
   (* When adding new entries, ensure that resourcestrings are re-assigned in InitLocale *)
-  EditorOptionsFoldInfoPas: Array [0..23] of TEditorOptionsFoldInfo
+  EditorOptionsFoldInfoPas: Array [0..26] of TEditorOptionsFoldInfo
   = (
       (Name:  dlgFoldPasProcedure;     Xml:     'Procedure';
        Index: ord(cfbtProcedure);    Enabled: True),
@@ -490,7 +490,13 @@ const
        Index: ord(cfbtNestedComment);Enabled: True),
 
       (Name:  dlgFoldPasIfThen; Xml:     'IfThen';
-       Index: ord(cfbtIfThen); Enabled: False)
+       Index: ord(cfbtIfThen); Enabled: False),
+      (Name:  dlgFoldPasForDo; Xml:     'ForDo';
+       Index: ord(cfbtForDo); Enabled: False),
+      (Name:  dlgFoldPasWhileDo; Xml:     'WhileDo';
+       Index: ord(cfbtWhileDo); Enabled: False),
+      (Name:  dlgFoldPasWithDo; Xml:     'WithDo';
+       Index: ord(cfbtWithDo); Enabled: False)
     );
 
   EditorOptionsFoldInfoLFM: Array [0..2] of TEditorOptionsFoldInfo
@@ -584,8 +590,8 @@ const
     TEditorOptionsFoldRecord =
     ( (Count:  0; Info: nil), // none
       (Count:  0; Info: nil), // text
-      (Count: 24; Info: @EditorOptionsFoldInfoPas[0]), // Freepas
-      (Count: 24; Info: @EditorOptionsFoldInfoPas[0]), // pas
+      (Count: 27; Info: @EditorOptionsFoldInfoPas[0]), // Freepas
+      (Count: 27; Info: @EditorOptionsFoldInfoPas[0]), // pas
       (Count:  3; Info: @EditorOptionsFoldInfoLFM[0]), // lfm
       (Count:  5; Info: @EditorOptionsFoldInfoXML[0]), // xml
       (Count:  3; Info: @EditorOptionsFoldInfoHTML[0]), // html
diff --git a/ide/lazarusidestrconsts.pas b/ide/lazarusidestrconsts.pas
index faa6a8abc5..7f1d7febd1 100644
--- a/ide/lazarusidestrconsts.pas
+++ b/ide/lazarusidestrconsts.pas
@@ -1967,6 +1967,9 @@ resourcestring
   dlgFoldPasProcBeginEnd    = 'Begin/End (procedure)';
   dlgFoldPasNestedComment   = 'Nested Comment';
   dlgFoldPasIfThen          = 'If/Then/Else';
+  dlgFoldPasForDo           = 'For/Do';
+  dlgFoldPasWhileDo         = 'While/Do';
+  dlgFoldPasWithDo          = 'With/Do';
   dlgFoldPasProcedure       = 'Procedure';
   dlgFoldPasUses            = 'Uses';
   dlgFoldPasVarType         = 'Var/Type (global)';