anchor.diff:    ed.OnClickGap:= @EditorOnClickGap;
     ed.OnClickMicromap:= @EditorOnClickMicroMap;
     ed.OnEnter:= @EditorOnEnter;
  -  ed.OnChangeState:=@EditorOnChangeState;
  +  ed.OnChange:= @EditorOnChange;
  +  ed.OnChangeModified:= @EditorOnChangeModified;
  +  ed.OnChangeState:= @EditorOnChangeState;
     ed.OnChangeCaretPos:= @EditorOnChangeCaretPos;
     ed.OnCommand:= @EditorOnCommand;
     ed.OnCommandAfter:= @EditorOnCommandAfter;
  
positive.code:   Ed1.Align:= alClient;
    Ed2.Align:= alBottom;
  
    Ed1.OnChange:= @EditorOnChange1;
    Ed2.OnChange:= @EditorOnChange2;
    Ed1.OnChangeModified:= @EditorOnChangeModified;
    Ed2.OnChangeModified:= @EditorOnChangeModified;
    Ed1.EditorIndex:= 0;
    Ed2.EditorIndex:= 1;
  
  
negative.code:     procedure EditorClickEndSelect(Sender: TObject; APrevPnt, ANewPnt: TPoint);
      procedure EditorClickMoveCaret(Sender: TObject; APrevPnt, ANewPnt: TPoint);
      procedure EditorDrawMicromap(Sender: TObject; C: TCanvas; const ARect: TRect);
      procedure EditorOnChange(Sender: TObject);
      procedure EditorOnChangeModified(Sender: TObject);
      procedure EditorOnChangeState(Sender: TObject);
      procedure EditorOnClick(Sender: TObject);
  