Удалить все объекты анимации исключая объекты с заданными целочисленными метками
procedure ClearExceptTagged(aTags: array of Integer);