anchor.diff:        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;
  +        InitAhead;
  +        AheadParse.NextToken;
  +        AheadParse.SimpleExpression;
  +        if AheadParse.TokenID = ptDotDot then
  +        begin
  +          SimpleExpression;
  +          Expected(ptDotDot);
  +          SimpleExpression;
  +        end else
  +          TypeId;
         end;
       ptRoundOpen:
         begin
  
positive.code:       Expected(ptGreater);
      end;
    end;
  end;
  
  procedure TmwSimplePasPar.ConstantExpression;
  
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
  