anchor.diff:      procedure VisibilityPublished; virtual;
       procedure VisibilityUnknown; virtual;
       procedure WhileStatement; virtual;
  +    procedure WithExpressionList; virtual;
       procedure WithStatement; virtual;
       procedure WriteAccessIdentifier; virtual;
       //JThurman 2004-03-21
  
positive.code: procedure TmwSimplePasPar.WithStatement;
  begin
    Expected(ptWith);
    VariableList;
    Expected(ptDo);
    Statement;
  end;
  
  procedure TmwSimplePasPar.VariableList;
  begin
    VariableReference; (* acessing func.recordfield not allowed here;as well as UNITNAMEID *)
    while FLexer.TokenID = ptComma do
    begin
      NextToken;
      VariableReference;
    end;
  end;
  
  
negative.code:     procedure VarEqual; virtual;
      procedure VarDeclaration; virtual;
      procedure Variable; virtual;
      procedure VariableReference; virtual;
      procedure VariantIdentifier; virtual;
      procedure VariantSection; virtual;
  