anchor.diff:    edtReplaceText.Enabled := chkReplace.Checked;
   end;
   
  +procedure TFindForm.edtFindTextKeyPressed(Sender: TObject; var KeyCode: Word; var ShiftState: TShiftState; var Consumed: Boolean);
  +begin
  +  if KeyCode = keyEnter then
  +  begin
  +    Consumed := True;
  +    btnFind.Click;
  +  end;
  +end;
  +
   procedure TFindForm.AfterCreate;
   begin
     {%region 'Auto-generated GUI code' -fold}
  
positive.code:     btnHelp: TfpgButton;
      {@VFD_HEAD_END: FindForm}
      procedure chkReplaceChanged(Sender: TObject);
    public
      procedure AfterCreate; override;
    end;
  
negative.code:     Hint := '';
      TabOrder := 2;
      Text := '';
      OnKeyPress := @edtFindTextKeyPressed;
    end;
  
    chkReplace := TfpgCheckBox.Create(self);
  