case key of 'A'..'z', #8:;
else
key :=chr(0);
ShowMessage('Ругань всякая...')
end;
Если для русских букв:
case key of 'А'..'я', #8:;
else
key :=chr(0);
ShowMessage('Ругань всякая...')
end;
Для рус и англ:
case key of 'A{на англ языке!!!!}'..'я', #8:;
else
key :=chr(0);
ShowMessage('Ругань всякая...')
end;
