[Electronic_Arts]

Так не про катило почему такой большой код если проблема решается так

Код:

if Key in ['A'..'z'] then key :=#0;