anchor.diff:    ATPanelSimple,
     ATStringProc,
     ATSynEdit,
  +  ATSynEdit_Carets,
     ATSynEdit_Edits,
     ATSynEdit_Commands,
     ATSynEdit_Finder,
  
positive.code: 
  
  procedure TfmFind.FormShow(Sender: TObject);
  begin
    edFind.OptCaretBlinkEnabled:= EditorOps.OpCaretBlinkEn;
    edRep.OptCaretBlinkEnabled:= EditorOps.OpCaretBlinkEn;
  
negative.code:   UpdateFonts;
    FixFormPositionToDesktop(Self);
    OnResize(Self);
  
    OnGetMainEditor(Ed);
    if Ed.Carets.Count>0 then
    begin
      Caret:= Ed.Carets[0];
      Caret.GetRange(X1, Y1, X2, Y2, bSel);
      FInitialCaretPos:= Point(X1, Y1);
    end;
  end;
  
  procedure TfmFind.DoResult(Str: TAppFinderOperation);
  