[Max360]

нашел, решение, убрал цыкл, а вместо него занес в "необходимый код" условие выхода, т.е. заменил while. Всем спасибо, все работает )

Добавлено через 25 минут
а в функцию-приемник, можно передать какой-нибудь параметр, кроме e:Event?