[dsd]

Если можно сканкод получить в виде числа, то можно еще проще: создать свою таблицу на все сканкоды и выводить по номеру сканкода нужный символ. Тогда вообще ни цикла ни ветвлений не потребуется.
Чет типа


inp:=GetKeyClicked;
str:=str[inp] ;