anchor.diff:      procedure ListboxSyntaxClick(Sender: TObject);
       procedure ListboxUIClick(Sender: TObject);
     private
  +    procedure Localize;
     public
       ThemeUi: string;
       ThemeSyntax: string;
  
positive.code:   Files_sy: TStringList;
    s: string;
  begin
    DoLocalize_FormChooseTheme(Self);
  
    ListboxUI.Items.Clear;
    ListboxSyntax.Items.Clear;
  
negative.code: 
  {$R *.lfm}
  
  { TfmChooseTheme }
  
  procedure TfmChooseTheme.FormCreate(Sender: TObject);
  