diff --git a/src/ce_observer.pas b/src/ce_observer.pas
index 196fdc3b..c5a0e58f 100644
--- a/src/ce_observer.pas
+++ b/src/ce_observer.pas
@@ -143,7 +143,7 @@ begin
 end;
 {$ENDREGION}
 
-{$REGION TCECustomSubject --------------------------------------------------}
+{$REGION TCECustomSubject ------------------------------------------------------}
 constructor TCECustomSubject.create;
 begin
   fObservers := TObjectList.create(false);
diff --git a/src/ce_procinput.pas b/src/ce_procinput.pas
index d6502ced..f6381e0e 100644
--- a/src/ce_procinput.pas
+++ b/src/ce_procinput.pas
@@ -65,7 +65,4 @@ begin
   sendInput;
 end;
 
-
-
 end.
-
diff --git a/src/ce_projconf.pas b/src/ce_projconf.pas
index 8740f071..d7b22145 100644
--- a/src/ce_projconf.pas
+++ b/src/ce_projconf.pas
@@ -45,6 +45,7 @@ type
 implementation
 {$R *.lfm}
 
+{$REGION Standard Comp/Obj------------------------------------------------------}
 constructor TCEProjectConfigurationWidget.create(aOwner: TComponent);
 begin
   inherited;
@@ -60,7 +61,9 @@ begin
   EntitiesConnector.removeObserver(self);
   inherited;
 end;
+{$ENDREGION --------------------------------------------------------------------}
 
+{$REGION ICEProjectObserver ----------------------------------------------------}
 procedure TCEProjectConfigurationWidget.projNew(aProject: TCEProject);
 begin
   beginUpdateByEvent;
@@ -93,7 +96,9 @@ begin
   fProj := aProject;
   endUpdateByEvent;
 end;
+{$ENDREGION --------------------------------------------------------------------}
 
+{$REGION config. things --------------------------------------------------------}
 procedure TCEProjectConfigurationWidget.selConfChange(Sender: TObject);
 begin
   if fProj = nil then exit;
@@ -209,5 +214,6 @@ begin
 
   Grid.TIObject := getGridTarget;
 end;
+{$ENDREGION --------------------------------------------------------------------}
 
 end.
diff --git a/src/ce_projinspect.pas b/src/ce_projinspect.pas
index 373239e7..67a6103f 100644
--- a/src/ce_projinspect.pas
+++ b/src/ce_projinspect.pas
@@ -149,6 +149,7 @@ begin
 end;
 {$ENDREGION}
 
+{$REGION Insêctor things -------------------------------------------------------}
 procedure TCEProjectInspectWidget.TreeKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
 begin
   if Key = VK_RETURN then
@@ -358,5 +359,6 @@ begin
   end;
   fXtraNode.Collapse(false);
 end;
+{$ENDREGION --------------------------------------------------------------------}
 
 end.
diff --git a/src/ce_search.pas b/src/ce_search.pas
index 8658b9bf..1c75df37 100644
--- a/src/ce_search.pas
+++ b/src/ce_search.pas
@@ -104,7 +104,7 @@ begin
 end;
 {$ENDREGION}
 
-{$REGION ICESessionOptionsObserver ------------------------------------------------------}
+{$REGION ICESessionOptionsObserver ---------------------------------------------}
 procedure TCESearchWidget.sesoptDeclareProperties(aFiler: TFiler);
 begin
   inherited;
diff --git a/src/ce_staticexplorer.pas b/src/ce_staticexplorer.pas
index a3acf7f3..a7e2f7ed 100644
--- a/src/ce_staticexplorer.pas
+++ b/src/ce_staticexplorer.pas
@@ -145,7 +145,7 @@ begin
 end;
 {$ENDREGION}
 
-{$REGION ICESessionOptionsObserver ------------------------------------------------------}
+{$REGION ICESessionOptionsObserver ---------------------------------------------}
 procedure TCEStaticExplorerWidget.optget_AutoRefresh(aWriter: TWriter);
 begin
   aWriter.WriteBoolean(fAutoRefresh);
@@ -287,6 +287,7 @@ begin
 end;
 {$ENDREGION}
 
+{$REGION Symbol-tree things ----------------------------------------------------}
 procedure TCEStaticExplorerWidget.UpdateByDelay;
 begin
   if not fAutoRefresh then exit;
@@ -492,7 +493,8 @@ begin
         'struct'    :ndCat := Tree.Items.AddChildObject(ndStruct, nme, ln);
         'template'  :ndCat := Tree.Items.AddChildObject(ndTmp, nme, ln);
         'variable'  :ndCat := Tree.Items.AddChildObject(ndVar, nme, ln);
-        else subjLmFromString(fLogMessager, 'static explorer does not handle this kind: ' + knd, nil, amcApp, amkWarn);
+        else subjLmFromString(fLogMessager, 'static explorer does not handle this kind: '
+          + knd, nil, amcApp, amkWarn);
       end;
 
       if ndCat = nil then
@@ -517,4 +519,6 @@ begin
     end;
   end;
 end;
+{$ENDREGION --------------------------------------------------------------------}
+
 end.
diff --git a/src/ce_synmemo.pas b/src/ce_synmemo.pas
index 92a03ee7..3a696965 100644
--- a/src/ce_synmemo.pas
+++ b/src/ce_synmemo.pas
@@ -77,6 +77,7 @@ implementation
 uses
   graphics, ce_interfaces;
 
+{$REGION TCESynMemoPositions ---------------------------------------------------}
 constructor TCESynMemoPositions.create(aMemo: TSynMemo);
 begin
   fList := TFPList.Create;
@@ -123,7 +124,9 @@ begin
   while fList.Count > fMax do
     fList.Delete(fList.Count-1);
 end;
+{$ENDREGION --------------------------------------------------------------------}
 
+{$REGION TCESynMemo ------------------------------------------------------------}
 constructor TCESynMemo.Create(aOwner: TComponent);
 begin
   inherited;
@@ -320,6 +323,7 @@ begin
   else if Button = mbLeft then
     fPositions.store;
 end;
+{$ENDREGION --------------------------------------------------------------------}
 
 initialization
   D2Syn := TSynD2Syn.create(nil);