anchor.diff:    ce_common, ce_observer;
   
   type
  +
  +  TCESynMemoPositions = class
  +  private
  +    fPos: Integer;
  +    fMax: Integer;
  +    fList: TFPList;
  +    fMemo: TSynMemo;
  +  public
  +    constructor create(aMemo: TSynMemo);
  +    destructor destroy; override;
  +    procedure store;
  +    procedure back;
  +    procedure next;
  +  end;
  +
     TCESynMemo = class(TSynMemo)
     private
       fFilename: string;
  
positive.code: 
  procedure TCESynMemo.KeyDown(var Key: Word; Shift: TShiftState);
  begin
    inherited;
    identifierToD2Syn;
    //
  
negative.code: begin
    subjDocClosing(TCEMultiDocSubject(fMultiDocSubject), self);
    fMultiDocSubject.Free;
    fPositions.Free;
    //
    if fileExists(fTempFileName) then
      sysutils.DeleteFile(fTempFileName);
  