[LTS]

Спасибо за пример!
Вопрос: Можно ли сделать либу, которая возврвщает событие KeyUP в виде кода кнопки (мне кажется так проще проверять одновременное нажатие кнопок)

и сделать проверку кнопок примерно так

uses (к примеру)keyup;

var up,down,left,right:boolean;
pressed:integer;

begin

pressed:=keytoaction(Getkeypressed);
if pressed=ga_UP then up:=true;
if pressed=ga_DOWN then down:=true;
if pressed=ga_LEFT then left:=true;
if pressed=ga_RIGHT then right:=true;

pressed:=keyup.keyup;
if pressed=ga_UP then up:=false;
if pressed=ga_DOWN then down:=false;
if pressed=ga_LEFT then left:=false;
if pressed=ga_RIGHT then right:=false;

if up then begin
y:=y-1;
...
end;
if down then begin
y:=y+1;
...
end;
..
..
..
И.Т.Д

end;