Небольшое замечание: поскольку в процессе выполняеться достаточно много проверок, лучше инициализировать и определить все коды в самом начале программы, как показано ниже. Все функции у библиотеки достаточно медленны.
Var
S : String; // Будет содержать название платформы
skl : Integer; // Код лефой софт-клавиши
skr : Integer; // Код правой софт-клавиши
key : Integer; // Код нажатой клавиши
Begin
[...читаем рессурсы, Randomize; и подобное...]
S := get_platform; // Инициализировали библиотеку
skl := get_leftsoftkeycode; // Получили код лефой клавиши
skr := get_rightsoftkeycode; // Получили код правой клавиши
Repeat // Основной цикл программы
key := GetKeyClicked;
[...делаем что-либо...]
Until key = skr; // Выходим, если нажата правая софт клавиша
End.