anchor.diff:        Expected(ptGreater);
       end;
     end;
  +
  +  if TokenID = ptRoundOpen then
  +  begin
  +    Expected(ptRoundOpen);
  +    SimpleExpression;
  +    Expected(ptRoundClose);
  +  end;
   end;
   
   procedure TmwSimplePasPar.ConstantExpression;
  
positive.code:       end;
      ptIdentifier:
        begin
          FLexer.InitAhead;
          case Lexer.AheadTokenID of
            ptPoint, ptSemiColon:
              begin
                TypeID;
              end;
          else
            begin
              SimpleExpression;
              if FLexer.TokenID = ptDotDot then
              begin
                NextToken;
                SimpleExpression;
              end;
            end;
          end;
        end;
      ptRoundOpen:
        begin
  
negative.code:       end;
      ptIdentifier:
        begin
          InitAhead;
          AheadParse.NextToken;
          AheadParse.SimpleExpression;
          if AheadParse.TokenID = ptDotDot then
          begin
            SimpleExpression;
            Expected(ptDotDot);
            SimpleExpression;
          end else
            TypeId;
        end;
      ptPointerSymbol:
        begin
  