anchor.diff:      procedure VarEqual; virtual;
       procedure VarDeclaration; virtual;
       procedure Variable; virtual;
  -    procedure VariableList; virtual;
       procedure VariableReference; virtual;
       procedure VariantIdentifier; virtual;
       procedure VariantSection; virtual;
  
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 VisibilityPublished; virtual;
      procedure VisibilityUnknown; virtual;
      procedure WhileStatement; virtual;
      procedure WithExpressionList; virtual;
      procedure WithStatement; virtual;
      procedure WriteAccessIdentifier; virtual;
      //JThurman 2004-03-21
  