anchor.diff:  Begin
     ProfileEvent('DisplayTopic >>>>');
     case PageControl1.ActivePageIndex of
  -    0:  begin
  +    0:  begin // TOC tab
             if tvContents.Selection = nil then
             begin
               ShowMessage('You must select a topic first by clicking it.');
  
positive.code:     ProgressBar: TfpgProgressBar;
      lblStatus: TfpgLabel;
      lbIndex: TfpgListBox;
      {@VFD_HEAD_END: MainForm}
      Files: TList; // current open help files.
      Debug: boolean;
  
negative.code:   {$IFDEF Timing}
    ,EpikTimer
    {$ENDIF}
    ,TextSearchQuery, SearchUnit;
  
  
  {@VFD_NEWFORM_IMPL}
  
  procedure TMainForm.MainFormException(Sender: TObject; E: Exception);
  begin
    TfpgMessageDialog.Critical('An unexpected error occurred.', E.Message);
  end;
  
  procedure TMainForm.MainFormShow(Sender: TObject);
  {$IFDEF Timing}
  