anchor.diff:  
   procedure TForm1.UpdateTree;
   begin
  +  FTree.Items.Clear;
     FData.Clear;
     TreeHelperInPascal(Ed, FLexer, FData);
     ApplyTreeHelperInPascal(Ed, FLexer, FTree, FData);
  
positive.code:   begin
      FFileName:= OpenDialog1.FileName;
      Ed.LoadFromFile(FFileName);
      Label1.Caption:= ExtractFileName(FFileName);
  
      case ExtractFileExt(FFileName) of
        '.md':
  
negative.code:       '.rst':
          FLexer:= 'reStructuredText';
        else
          FLexer:= 'none'
      end;
  
      Label1.Caption:= Format('File "%s", Lexer "%s"', [ExtractFileName(FFileName), FLexer]);
  
      UpdateTree;
    end;
  