anchor.diff:  end;
   
   procedure TMainForm.DisplaySelectedSearchResultTopic;
  -begin
  -  //
  +var
  +  Topic: TTopic;
  +begin
  +  if lbSearchResults.FocusItem = -1 then
  +    exit;
  +  if lbSearchResults.Items.Objects[lbSearchResults.FocusItem] = nil then
  +    // the "no results" place holder
  +    exit;
  +  Topic := lbSearchResults.Items.Objects[lbSearchResults.FocusItem] as TTopic;
  +  DisplayTopic( Topic );
   end;
   
   procedure TMainForm.EnableControls;
  
positive.code:   if Topic = nil then
      raise Exception.Create('Unable to locate the Topic');
  
    RichView.Clear;
    ImageIndices := TList.Create;
    ProfileEvent('Cleared memo...');
  
    HelpFile := TopicFile(Topic);
    if HelpFile = nil then
      raise Exception.Create('Failed to get active HelpFile from Topic');
  
  
negative.code: procedure TMainForm.lbSearchResultsDoubleClick(Sender: TObject; AButton: TMouseButton;
    AShift: TShiftState; const AMousePos: TPoint);
  begin
    DisplaySelectedSearchResultTopic;
  end;
  
  procedure TMainForm.btnSearchClicked(Sender: TObject);
  