Распознование раскладки клавиатуры, русский\англиский Опции

[Atreides]

Исходя из ТЗ приходится загонять пользователей в жесткие рамки ввода текста... Задача следующего характера, пользователи могут вводить только русские символы, как бы организовать выдачу сообщения, что в данный момент у них раскладка английская или введены цифры? Смотрел по свойствам Edit - OnKeyPress или OnChange, единственное что пришло в голову это туп перебирать все буквы так:

Код

begin

if Edit2.Text='Q' then

begin
  ShowMessage('Смените раскладку клавиатуры на русскоязычную');
end;
end;

Может есть способ проще, а то данный способ после двух неверных вводом почему не хочет дальше ругаться...
P.s. По свойствам Edit все символы будут большими буквами CharCase = ecUpperCase