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:       end;
    else
      begin
        SimpleExpression;
        ExternalDirectiveTwo;
      end;
    end;
  
negative.code:       TheTokenID := ExID;
      end;
    end;
  
    if TokenID = ptOf then
      ProceduralDirectiveOf;
  end;
  
  procedure TmwSimplePasPar.StringConst;
  