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