anchor.diff:      PopupFrame := False;
       TabOrder := 1;
       OnDoubleClick  := @lbIndexDoubleClick;
  +    OnKeyPress:=@lbIndexKeyPress;
     end;
   
     IndexSearchEdit := TfpgEdit.Create(tsIndex);
  
positive.code:   TfpgMessageDialog.Critical('An unexpected error occurred.', E.Message);
  end;
  
  procedure TMainForm.RichViewClickLink(Sender: TRichTextView; Link: string);
  var
    LinkIndex: integer;
  
negative.code:     procedure   PageControl1Change(Sender: TObject; NewActiveSheet: TfpgTabSheet);
      procedure   tvContentsDoubleClick(Sender: TObject; AButton: TMouseButton; AShift: TShiftState; const AMousePos: TPoint);
      procedure   lbIndexDoubleClick(Sender: TObject; AButton: TMouseButton; AShift: TShiftState; const AMousePos: TPoint);
      procedure   lbIndexKeyPress(Sender: TObject; var KeyCode: word; var ShiftState: TShiftState; var Consumed: boolean);
      procedure   lbSearchResultsDoubleClick(Sender: TObject; AButton: TMouseButton; AShift: TShiftState; const AMousePos: TPoint);
      procedure   btnSearchClicked(Sender: TObject);
      procedure   IndexSearchEditOnChange(Sender: TObject);
  