anchor.diff:    N: integer;
     S: string;
   begin
  +  if FBusyClickSyntax then exit;
  +  FBusyClickSyntax:= true;
  +
     N:= ListboxSyntax.ItemIndex;
     if N>0 then
       S:= ListboxSyntax.Items[N]
  
positive.code:   N: integer;
    S: string;
  begin
    N:=ListboxUi.ItemIndex;
    if N>0 then
      S:= ListboxUi.Items[N]
  
negative.code:     procedure ListboxSyntaxClick(Sender: TObject);
      procedure ListboxUIClick(Sender: TObject);
    private
      FBusyClickUi: boolean;
      FBusyClickSyntax: boolean;
      procedure Localize;
      function GetEnableLexerThemes: boolean;
      function GetEnableSync: boolean;
  