Всем огромное спасибо за советы. Изменил все заданные переменные Char на AnsiChar, сделал теже изменения в параметрах функций, заменил GetKeyNameText и GetWindowText на GetKeyNameTextA и GetWindowTextA соответственно. И все заработало!