anchor.diff:    SCaptionCount,
     SCaptionExtract,
     SCaptionSelect,
  -  SCaptionMark: string;
  +  SCaptionMark,
  +  SCaptionRep,
  +  SCaptionRepAll,
  +  SCaptionRepGlobal: string;
  +  Sep1: TMenuItem;
  +  Sep2: TMenuItem;
   begin
     SCaptionFindFirst:= 'Find first';
     SCaptionFindPrev:= 'Find previous';
  
positive.code:   FMenuitemExtract.Caption:= _MakeHint(SCaptionExtract, UiOps.HotkeyExtractAll);
    FMenuitemSelectAll.Caption:= _MakeHint(SCaptionSelect, UiOps.HotkeySelectAll);
    FMenuitemMarkAll.Caption:= _MakeHint(SCaptionMark, UiOps.HotkeyMarkAll);
  end;
  
  procedure TfmFind.bMoreClick(Sender: TObject);
  
negative.code:     FMenuitemFindNext:= TMenuItem.Create(Self);
      FMenuitemFindNext.OnClick:= @bFindNextClick;
  
      Sep1:= TMenuItem.Create(Self);
      Sep1.Caption:= '-';
  
      Sep2:= TMenuItem.Create(Self);
      Sep2.Caption:= '-';
  
      FMenuitemCount:= TMenuItem.Create(Self);
      FMenuitemCount.OnClick:= @bCountClick;
  
  