anchor.diff:  
   procedure TForm1.Edit1Change(Sender: TObject);
   begin
  +  RefreshFilter;
     RefreshList;
   end;
   
  
positive.code: 
  
  procedure TForm1.cbShowMisClick(Sender: TObject);
  var
    Filter: Boolean;
  begin
    RefreshList;
    Filter := cbShowMis.Checked;
  
    //Disable buttons
    mnuSortByIndex.Enabled := not Filter;
  
negative.code: 
      procedure InitLocalesList;
      procedure RefreshFolders;
      procedure RefreshFilter;
      procedure RefreshLocales;
      procedure RefreshList;
      procedure LoadSettings(aPath: string);
  