anchor.diff:    FileWordSequences: TList;
     Query: TTextSearchQuery;
   begin
  +  if CurrentOpenFiles.Count = 0 then
  +    Exit;
  +
     SearchText := Trim(edSearchText.Text);
     lbSearchResults.Items.Clear;
   
  
positive.code: 
  procedure TMainForm.tvContentsChange(Sender: TObject);
  begin
    DisplayTopic(nil);
  end;
  
  procedure TMainForm.edSearchTextKeyPress(Sender: TObject; var KeyCode: word;
    var ShiftState: TShiftState; var Consumed: boolean);
  begin
    if (KeyCode = keyReturn) or (KeyCode = keyPEnter) then
    begin
      Consumed := True;
  
negative.code: procedure TMainForm.lbSearchResultsKeyPress(Sender: TObject; var KeyCode: word;
    var ShiftState: TShiftState; var Consumed: boolean);
  begin
    if CurrentOpenFiles.Count = 0 then
      Exit;
  
    if (KeyCode = keyReturn) or (KeyCode = keyPEnter) then
    begin
      Consumed := True;
  