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