Моя неудача - это должно фактическ быть DrawingObjects: =False.
Я должен признаться однако что в моих испытаниях, он кажется, что будет весьма дефектен о работает ли он или не (иногда он делает, иногда не) поэтому я порекомендовал вас unprotect, добавил утверждение и reprotect вместо, быть честен.