anchor.diff:        end;
       ptIdentifier:
         begin
  -        Lexer.InitAhead;
  -        case Lexer.AheadTokenID of
  -          ptPoint, ptSemiColon, ptLower:
  -            begin
  -              TypeId;
  -            end;
  -        else
  -          begin
  -            SimpleExpression;
  -            if Lexer.TokenID = ptDotDot then
  -            begin
  -              NextToken;
  -              SimpleExpression;
  -            end;
  -          end;
  -        end;
  +        InitAhead;
  +        AheadParse.NextToken;
  +        AheadParse.SimpleExpression;
  +        if AheadParse.TokenID = ptDotDot then
  +        begin
  +          SimpleExpression;
  +          Expected(ptDotDot);
  +          SimpleExpression;
  +        end else
  +          TypeId;
         end;
       ptPointerSymbol:
         begin
  
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:       Expected(ptGreater);
      end;
    end;
  
    if TokenID = ptRoundOpen then
    begin
      Expected(ptRoundOpen);
      SimpleExpression;
      Expected(ptRoundClose);
    end;
  end;
  
  procedure TmwSimplePasPar.ConstantExpression;
  