diff --git a/ide/editoroptions.pp b/ide/editoroptions.pp
index c86bad1f5c..ca5b952be7 100644
--- a/ide/editoroptions.pp
+++ b/ide/editoroptions.pp
@@ -430,7 +430,7 @@ type
     Info: PEditorOptionsDividerInfoList;
   end;
 
-const
+var
 
   EditorOptionsDividerInfoPas: Array [0..8] of TEditorOptionsDividerInfo
   = (
@@ -445,6 +445,8 @@ const
       (Name: dlgDivPasTryName;          Xml: 'Try';     BoolOpt: False; MaxLevel: 0)
     );
 
+const
+
   EditorOptionsDividerDefaults: array[TLazSyntaxHighlighter] of
     TEditorOptionsDividerRecord =
     ( (Count: 0; Info: nil), // none
@@ -2060,6 +2062,16 @@ begin
   EditorOptionsFoldInfoPas[18].Name := dlgFoldPasIfDef;
   EditorOptionsFoldInfoPas[19].Name := dlgFoldPasUserRegion;
 
+  EditorOptionsDividerInfoPas[0].Name:=dlgDivPasUnitSectionName;
+  EditorOptionsDividerInfoPas[1].Name:=dlgDivPasUsesName;
+  EditorOptionsDividerInfoPas[2].Name:=dlgDivPasVarGlobalName;
+  EditorOptionsDividerInfoPas[3].Name:=dlgDivPasVarLocalName;
+  EditorOptionsDividerInfoPas[4].Name:=dlgDivPasStructGlobalName;
+  EditorOptionsDividerInfoPas[5].Name:=dlgDivPasStructLocalName;
+  EditorOptionsDividerInfoPas[6].Name:=dlgDivPasProcedureName;
+  EditorOptionsDividerInfoPas[7].Name:=dlgDivPasBeginEndName;
+  EditorOptionsDividerInfoPas[8].Name:=dlgDivPasTryName;
+
   AdditionalHighlightAttributes[ahaNone]                := '';
   AdditionalHighlightAttributes[ahaTextBlock]           := dlgAddHiAttrTextBlock;
   AdditionalHighlightAttributes[ahaExecutionPoint]      := dlgAddHiAttrExecutionPoint;