anchor.diff:  function TmwSimplePasPar.IsDefined(const ADefine: string): Boolean;
   begin
     Result := FDefines.IndexOf(ADefine) > -1;
  +end;
  +
  +procedure TmwSimplePasPar.ProceduralDirectiveOf;
  +begin
  +  NextToken;
  +  Expected(ptObject);
   end;
   
   procedure TmwSimplePasPar.TypeDirective;
  
positive.code:     end;
    end;
    if TokenID = ptOf then
    begin
      NextToken;
      Expected(ptObject);
    end;
    Lexer.InitAhead;
    case TokenID of
      ptSemiColon: TheTokenID := Lexer.AheadExID;
  
negative.code:       end;
    else
      begin
        if fLexer.ExID <> ptName then
          SimpleExpression;
        ExternalDirectiveTwo;
      end;
    end;
  