anchor.diff:      procedure ListboxSyntaxClick(Sender: TObject);
       procedure ListboxUIClick(Sender: TObject);
     private
  +    procedure Localize;
     public
       ThemeUi: string;
       ThemeSyntax: string;
  
positive.code: 
  {$R *.lfm}
  
  procedure DoLocalize_FormChooseTheme(F: TfmChooseTheme);
  const
    section = 'd_theme';
  var
    ini: TIniFile;
    fn: string;
  begin
    fn:= GetAppLangFilename;
    if not FileExists(fn) then exit;
    ini:= TIniFile.Create(fn);
    try
      with F do Caption:= ini.ReadString(section, '_', Caption);
      with F.ButtonPanel1.OKButton do Caption:= msgButtonOk;
      with F.ButtonPanel1.CancelButton do Caption:= msgButtonCancel;
  
      with F.chkSync do Caption:= ini.ReadString(section, 'syn', Caption);
      with F.GroupUI do Caption:= ini.ReadString(section, 'ty_ui', Caption);
      with F.GroupSyntax do Caption:= ini.ReadString(section, 'ty_sy', Caption);
    finally
      FreeAndNil(ini);
    end;
  end;
  
  { TfmChooseTheme }
  
  procedure TfmChooseTheme.FormCreate(Sender: TObject);
  
negative.code:   Files_sy: TStringList;
    s: string;
  begin
    Localize;
  
    ListboxUI.Items.Clear;
    ListboxSyntax.Items.Clear;
  