anchor.diff:  begin
     edRep.DoCommand(cCommand_SelectAll);
     bFindNext.ShowHint:= false; //hide hint "Enter" when replace-box focused
  +  UpdateButtonFrames;
   end;
   
   procedure TfmFind.edRepExit(Sender: TObject);
   begin
     bFindNext.ShowHint:= true;
  +  UpdateButtonFrames;
   end;
   
   procedure TfmFind.FormClose(Sender: TObject; var CloseAction: TCloseAction);
  
positive.code:     procedure SetMultiLine(Value: boolean);
      procedure SetNarrow(AValue: boolean);
      procedure SetReplace(AValue: boolean);
    public
      { public declarations }
      FCaptionFind,
  
negative.code: procedure TfmFind.edFindEnter(Sender: TObject);
  begin
    edFind.DoCommand(cCommand_SelectAll);
    UpdateButtonFrames;
  end;
  
  procedure TfmFind.edFindKeyDown(Sender: TObject; var Key: Word;
  