anchor.diff:  
       procedure InitLocalesList;
       procedure RefreshFolders;
  +    procedure RefreshFilter;
       procedure RefreshLocales;
       procedure RefreshList;
       procedure LoadSettings(aPath: string);
  
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.Edit1Change(Sender: TObject);
  begin
    RefreshFilter;
    RefreshList;
  end;
  
  