key:=getkeypressed; if key=KE_KEY2 then... if key=KE_KEY8 then... key:=keytoaction(key); if key=GA_UP then... if key=GA_DOWN then...