anchor.diff:      OnDoubleClick  := @lbIndexDoubleClick;
     end;
   
  +  btnSearch := TfpgButton.Create(tsSearch);
  +  with btnSearch do
  +  begin
  +    Name := 'btnSearch';
  +    SetPosition(220, 20, 28, 26);
  +    Anchors := [anRight,anTop];
  +    Text := 'Go';
  +    FontDesc := '#Label1';
  +    Hint := '';
  +    ImageName := '';
  +    TabOrder := 11;
  +    OnClick := @btnSearchClicked;
  +  end;
  +
     {@VFD_BODY_END: MainForm}
     {%endregion}
   
  
positive.code:           else
              Topic := TTopic(lbIndex.Items.Objects[lbIndex.FocusItem]);
            ProfileEvent('Got Topic from Index listbox');
          end;
    end;
  
  
negative.code:     procedure   btnShowIndex(Sender: TObject);
      procedure   btnGoClicked(Sender: TObject);
      procedure   tvContentsChange(Sender: TObject);
      procedure   MainFormException(Sender: TObject; E: Exception);
      procedure   MainFormCloseQuery(Sender: TObject; var CanClose: boolean);
      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   lbSearchResultsDoubleClick(Sender: TObject; AButton: TMouseButton; AShift: TShiftState; const AMousePos: TPoint);
      procedure   btnSearchClicked(Sender: TObject);
      procedure   FileOpen;
      function    OpenFile(const AFileNames: string): boolean;
      procedure   CloseFile;
  