anchor.diff:  
   procedure TForm1.Edit1Change(Sender: TObject);
   begin
  +  RefreshFilter;
     RefreshList;
   end;
   
  
positive.code:   btnInsertSeparator.Enabled := not Filter;
    btnMoveUp.Enabled := not Filter;
    btnMoveDown.Enabled := not Filter;
    //cbShowDup.Enabled := Filter;
  
    //Select the first item
    ListBox1.ItemIndex := 0;
    ListBox1Click(ListBox1);
  end;
  
  
  
negative.code: 
  
  procedure TForm1.cbShowMisClick(Sender: TObject);
  begin
    RefreshFilter;
    RefreshList;
  
    //Select the first item
    ListBox1.ItemIndex := 0;
    ListBox1Click(ListBox1);
  end;
  
  
  procedure TForm1.RefreshFilter;
  var
    Filter: Boolean;
  begin
    Filter := cbShowMis.Checked or cbShowDup.Checked or (Edit1.Text <> '');
  
    //Disable buttons
    mnuSortByIndex.Enabled := not Filter;
  