Иван, хороший пример. А кто-нибудь может написать документацию на эти загадочные сиквенсеры? А то они вон как полезны. Еще в рассылке было, что можно с помощью них отслеживать закрытие окон, и спрашивать пользователя "вы правда хотите прервать загрузку файла" и т.п.

А у меня в коде выше была ошибка пропущенного ELSE. С ним не глючит.
## Код:
```
PROCEDURE (v: View) HandleModelMsg  (VAR msg: Models.Message);
BEGIN
   WITH msg: Msg DO
      msg.consumed := TRUE
   ELSE
   END
END HandleModelMsg;
```
