[KOOL]

а не проще ли объединить вот так?:

Код:

If not (key in ['А'..'а', #8])Then
  key := #0;

Но в этом случае(Как и в твоем) нельзя будет ввести ничего, кроме латиницы и BackSpace. Если тебе НЕ нужна латиница то нужен мой первый вариант.