я человек ленивый , поленился писать новый код
program pr1;
var bool:boolean;
i,b,getkeyclicked1:integer;
begin
showform;
bool:=false;
repeat
getkeyclicked1:=getkeypressed;
if getkeyclicked1=ke_key0 then i:=formaddstring('0');
if getkeyclicked1=ke_key1 then i:=formaddstring('1');
if getkeyclicked1=ke_key2 then i:=formaddstring('2');
if getkeyclicked1=ke_key3 then i:=formaddstring('3');
if getkeyclicked1=ke_key4 then i:=formaddstring('4');
if getkeyclicked1=ke_key5 then i:=formaddstring('5');
if getkeyclicked1=ke_key6 then i:=formaddstring('6');
if getkeyclicked1=ke_key7 then i:=formaddstring('7');
if getkeyclicked1=ke_key8 then i:=formaddstring('8');
if getkeyclicked1=ke_key9 then i:=formaddstring('9');
if getkeyclicked1=ke_none then i:=formaddstring('ни одна клавиша не нажата');
if keytoaction(getkeyclicked1)=ga_none then b:=formaddstring('ни одна');
if keytoaction(getkeyclicked1)=ga_up then b:=formaddstring('вверх');
if keytoaction(getkeyclicked1)=ga_down then b:=formaddstring('вниз');
if keytoaction(getkeyclicked1)=ga_left then b:=formaddstring('лево');
if keytoaction(getkeyclicked1)=ga_right then b:=formaddstring('право');
if keytoaction(getkeyclicked1)=ga_fire then b:=formaddstring('огонь');
if keytoaction(getkeyclicked1)=ga_gamea then b:=formaddstring('A');
if keytoaction(getkeyclicked1)=ga_gameb then b:=formaddstring('B');
if keytoaction(getkeyclicked1)=ga_gamec then b:=formaddstring('C');
if keytoaction(getkeyclicked1)=ga_gamed then b:=formaddstring('D');
repaint;
delay(100);
clearform;
until bool;
end.
GetKeyPressed тоже слепой
как вы вообще можете достучаться до клавы ?????