anchor.diff:      ADirTarget:= GetAppPath(cDirPy)+DirectorySeparator+s_module;
       FCopyDir(ExtractFileDir(AFilenameInf), ADirTarget);
   
  -    for i:= 0 to sections.Count-1 do
  +    for ini_section in sections do
       begin
  -      ini_section:= sections[i];
         if not SRegexMatchesString(ini_section, 'item\d+', true) then Continue;
   
         s_section:= ini.ReadString(ini_section, 'section', '');
  
positive.code:       end;
      end;
    finally
      Free
    end;
  end;
  
  
negative.code:   out AReport: string;
    out ADirLexlib: string);
  var
    i_sub: integer;
    ini_section,
    s_lexer, fn_lexer, fn_acp, fn_lexmap: string;
    an, an_sub: TecSyntAnalyzer;
    ini_file, ini_lexmap: TIniFile;
    sections: TStringList;
  begin
    AReport:= '';
    ADirLexlib:= GetAppPath(cDirDataLexers);
  
    ini_file:= TIniFile.Create(AFilenameInf);
    sections:= TStringList.Create;
  
    try
      ini_file.ReadSections(sections);
      for ini_section in sections do
      begin
        if not SRegexMatchesString(ini_section, 'lexer\d+', true) then Continue;
  
        s_lexer:= ini_file.ReadString(ini_section, 'file', '');
        if s_lexer='' then Break;
  
        //copy lexer file
  