Обработка одновременного нажатия двух клавиш

uses graphabc;
var x,y:integer;
    f:boolean;
procedure KeyPress(ch:char);
begin
case ch of
'в','В','D','d':x:=x+5;
#27:f:=false;
end;
end;
procedure KeyDown(key:integer);
begin
if key=VK_Up then y:=y-5;
end;
begin
x:=200;
y:=150;
f:=true;
onkeypress:=KeyPress;
onkeydown:=KeyDown;
lockdrawing;
repeat
Window.Clear;
rectangle(x-50,y-50,x+50,y+50);
sleep(20);
redraw;
until not f;
end.

uses
  graphabc;
 
var
  x, y: integer;
  f: boolean;
  
  isUp := false;
  isRight := false;
 
procedure KeyPress(ch: char);
begin
  if ch = #27 then f := false;
end;
 
procedure KeyDown(key: integer);
begin
  case key of
    VK_Up: isUp := true;
    VK_Right: isRight := true;
  end;
end;
 
procedure KeyUp(key: integer);
begin
  case key of
    VK_Up: isUp := false;
    VK_Right: isRight := false;
  end;
end;
 
begin
  x := 200;
  y := 150;
  f := true;
  onkeypress := KeyPress;
  onkeydown := KeyDown;
  OnKeyUp := KeyUp;
  lockdrawing;
  repeat
    Window.Clear;
    rectangle(x - 50, y - 50, x + 50, y + 50);
    sleep(75);
    
    if isUp then y := y - 5;
    if isRight then x := x + 5;
    
    redraw;
  until not f;
end.

{$apptype windows}
{$platformtarget x86}
{$reference System.Drawing.dll}
{$reference System.Windows.Forms.dll}
{$reference SlimDX.dll}
uses system,System.Collections.Generic,system.drawing,system.Windows.forms,slimdx,slimdx.directinput,GraphABC;
type
  KeysDownHand = procedure(sender: object; e: IList<SlimDX.DirectInput.Key>);
  KeyBoardKeys = class
    public event KeysDown: KeysDownHand;
  protected 
    _KeyBord: KeyBoard;
    _Tim: System.Windows.Forms.Timer;
    _Keys: IList<SlimDX.DirectInput.Key>;
    procedure TimProc(sender: object; e: EventArgs);
    begin
      _keys := (_keybord.GetCurrentState().PressedKeys);
      if (KeysDown<>nil) and (_keys.Count > 0) then KeysDown(self, _keys);
    end;
  
  public 
    
    constructor create(control_: control);
    begin
      var directI := new DirectInput.DirectInput;;
      _keybord := new keyboard(directi);
      
      _keybord.SetCooperativeLevel(control_, CooperativeLevel.Nonexclusive or CooperativeLevel.Background);
      _keybord.Acquire;
      
      _Tim := new Timer;
      _Tim.Interval := 50;
      _Tim.Tick += TimProc;
      _tim.Start();
      
    end;
    
    property KeyGetterTimer: Timer read _Tim;
    property KeyBordGet: keyBoard read _keybord;
    function GetPressedKeys: IList<SlimDX.DirectInput.Key> := _keys;
  end;
 
const
  Step = 4;
  r = 20;
 
var
  kb: KeyBoardKeys;
  pos: point;
 
procedure DrawCircle();
begin
  clearWindow;
  circle(pos.X, pos.Y, r);
  redraw();
end;
 
procedure kd(sender: object; E: IList<SlimDX.DirectInput.Key> );
begin
  for var i := 0 to e.Count - 1 do
  begin
    if (e[i] = key.LeftArrow) or (e[i] = key.A)  then pos.X -= step;
    if (e[i] = key.RightArrow) or (e[i] = key.D)  then pos.X += step;
    if (e[i] = key.UpArrow) or (e[i] = key.W)   then pos.Y -= step;
    if (e[i] = key.DownArrow) or (e[i] = key.S) then pos.Y += step;
  end;
  DrawCircle;
end;
 
procedure crAll();
begin
  kb := new KeyBoardKeys(GraphABc.MainForm);
  kb.KeysDown += kd;
end;
 
begin
  lockDrawing;
  
  pos := new Point((WindowWidth - r) div 2, (WindowHeight - r) div 2);
  SetBrushColor(clOrange);
  DrawCircle();
  
  GraphABC.MainForm.Invoke(crALl);
end.

begin
  Writeln(#27);
end.