anchor.diff:  
     TPasSyntaxTreeBuilder = class(TmwSimplePasPar)
     private type
  -    TExpressionMethod = reference to procedure;
  +    TExpressionMethod = procedure of object;
     private
       procedure BuildExpressionTree(ExpressionMethod: TExpressionMethod);
       procedure ParserMessage(Sender: TObject; const Typ: TMessageEventType; const Msg: string; X, Y: Integer);
  
positive.code: end;
  
  procedure TPasSyntaxTreeBuilder.Expression;
  begin
    BuildExpressionTree(
      procedure
      begin
        inherited Expression
      end);
  end;
  
  procedure TPasSyntaxTreeBuilder.ExpressionList;
  
negative.code: end;
  
  procedure TPasSyntaxTreeBuilder.ConstantExpression;
  var
    ExpressionMethod: TExpressionMethod;
  begin
    ExpressionMethod := inherited ConstantExpression;
    BuildExpressionTree(ExpressionMethod);
  end;
  
  procedure TPasSyntaxTreeBuilder.ConstantName;
  