anchor.diff:      end;
     end;
     if TokenID = ptOf then
  -  begin
  -    NextToken;
  -    Expected(ptObject);
  -  end;
  +    ProceduralDirectiveOf;
  +
     Lexer.InitAhead;
     case TokenID of
       ptSemiColon: TheTokenID := Lexer.AheadExID;
  
positive.code:       TheTokenID := ExID;
      end;
    end;
  end;
  
  procedure TmwSimplePasPar.StringConst;
  
negative.code:     procedure PointerSymbol; virtual;
      procedure PointerType; virtual;
      procedure ProceduralDirective; virtual;
      procedure ProceduralDirectiveOf; virtual;
      procedure ProceduralType; virtual;
      procedure ProcedureDeclarationSection; virtual;
      procedure ProcedureHeading; virtual;
  