Фильтр русских букв

[lavelas]

требуестя чтобы в edit при вводе оставались только большие русские буквы. пока получается оставлять лишь английские.делается это вот как:
для edit в инспекторе объектов ставим событие onkeypress, жмыкаем мышкой и в шаблоне пишем
Label1.caption:=Label1.caption + key;
if not (key in ['A'..'Z']) then key:= chr(0);

[Sasha_Smirnov]

А что, в явном виде нельзя указать интервал ['А'..'Я']?! Тогда по кодам из таблицы Unicode.

[lavelas]

когда пишешь ['А'..'Я'] никакой реакции.

[IT-man]

Надо наоборот

if not (key in ['А'..'Я']) then key:=#0;
Lbl.caption:=lbl.caption+key;