anchor.diff:    IdentifierList;
     Expected(ptColon);
     TypeId;
  -  while TokenID = ptSemiColon do
  -  begin
  -    SEMICOLON;
  -    IdentifierList;
  -    Expected(ptColon);
  -    TypeId;
  -  end;
  -  Expected(ptSquareClose);
  -end;*)
  +  if TokenID = ptEqual then
  +  begin
  +    Expected(ptEqual);
  +    ConstantExpression;
  +  end;
  +end;
   
   procedure TmwSimplePasPar.PropertyParameterConst;
   begin
  
positive.code:     procedure PropertyDefault; virtual;
      procedure PropertyInterface; virtual;
      procedure PropertyName; virtual;
      procedure PropertyParameterConst; virtual;
      procedure PropertyParameterList; virtual;
      procedure PropertySpecifiers; virtual;
  
negative.code:   while TokenID = ptSemiColon do
    begin
      SEMICOLON;
      IdentifierList;
      Expected(ptColon);
      TypeId;
    end;
    Expected(ptSquareClose);
  end;*)
  
  procedure TmwSimplePasPar.PropertyParameter;
  begin
    if TokenID = ptConst then
    begin
      PropertyParameterConst;
  