anchor.diff:  
     if (Ed=Ed1) and Splitted and EditorsLinked then
     begin
  -    Ed2.UpdateIncorrectCaretPositions;
  +    Ed2.DoCaretsFixIncorrectPos(false);
       Ed2.Update(true);
     end;
   
  
positive.code: var
    Ad: TATAdapterEControl;
  begin
    Ed1.UpdateIncorrectCaretPositions;
    Ed2.UpdateIncorrectCaretPositions;
  
    Ed1.Update(AUpdatedText);
    Ed2.Update(AUpdatedText);
  
negative.code:     caret.PosY:= StrToIntDef(SGetItem(str), 0);
      caret.EndX:= StrToIntDef(SGetItem(str), -1);
      caret.EndY:= StrToIntDef(SGetItem(str), -1);
      Ed.DoCaretsFixIncorrectPos(true);
      Ed.DoEventCarets;
    end;
  
  