Сам сделал можт алармшикам пригодится
Uses scodes;
Var
S : String; // Будет содержать название платформы
skl : Integer; // Код лефой софт-клавиши
skr : Integer; // Код правой софт-клавиши
key : Integer; // Код нажатой клавиши
Begin
S := get_platform; // Инициализировали библиотеку
skl := get_leftsoftkeycode; // Получили код лефой клавиши
skr := get_rightsoftkeycode; // Получили код правой клавиши
Repeat // Основной цикл программы
key := GetKeyClicked;
if (key=skl)then
begin
fillRect(5, 5, 20, 20);
repaint;
delay(1000);
end;
Until false; // Выходим, если нажата правая софт клавиша
End.