anchor.diff:        end;
       end;
     finally
  -    Free
  +    FreeAndNil(sections);
  +    FreeAndNil(ini_file);
     end;
   end;
   
  
positive.code:   out AReport: string;
    out ADirLexlib: string);
  var
    i_lexer, i_sub: integer;
    s_lexer, fn_lexer, fn_acp, fn_lexmap: string;
    an, an_sub: TecSyntAnalyzer;
    ini_lexmap: TIniFile;
  begin
    AReport:= '';
    ADirLexlib:= GetAppPath(cDirDataLexers);
  
    with TIniFile.Create(AFilenameInf) do
    try
      for i_lexer:= 1 to 20 do
      begin
        s_lexer:= ReadString('lexer'+Inttostr(i_lexer), 'file', '');
        if s_lexer='' then Break;
  
        //copy lexer file
  
negative.code:       //set sublexer links
        for i_sub:= 0 to an.SubAnalyzers.Count-1 do
        begin
          s_lexer:= ini_file.ReadString(ini_section, 'link'+Inttostr(i_sub+1), '');
          if s_lexer='' then Continue;
          if s_lexer='Style sheets' then s_lexer:= 'CSS';
          if s_lexer='Assembler' then s_lexer:= 'Assembly';
  