Ваш код правильный. Если он возвращает ноль, это означает, что коллекция пуста.
комментарий @Hubisans работал лучше всего на меня.
ActiveWindow.SmallScroll down:=1 ActiveWindow.SmallScroll up:=1