Создать анимацию, привязанную к клавишам

uses
  GraphABC, Timers;
 
var
  x, y: integer; 
  dx: integer; 
  dy: integer; 
  speed: integer; 
 
procedure TimerProc;
begin
  ClearWindow; 
  Inc(x, dx); Inc(y, dy); 
  Rectangle(x, y, x + 30, y + 30); 
end;
 
procedure KeyDown(Key: integer);
begin
  case Key of 
    VK_Escape: Halt; 
    VK_Left, VK_A: begin dx := -speed; dy := 0; end; 
    VK_Right, VK_D: begin dx := +speed; dy := 0; end; 
    VK_Up, VK_W: begin dy := -speed; dx := 0; end; 
    VK_Down, VK_S: begin dy := +speed; dx := 0; end; 
    VK_Home, VK_Q: begin dy := -speed; dx := -speed; end; 
    VK_End, VK_Z: begin dy := +speed; dx := -speed; end; 
    VK_PageUp, VK_E: begin dy := -speed; dx := +speed; end; 
    VK_PageDown, VK_C: begin dy := +speed; dx := +speed; end; 
    12, VK_X: begin dx := 0; dy := 0; end; 
  end; 
end;
 
begin
  SetWindowSize(900, 600); 
  CenterWindow; 
  ClearWindow(rgb(51, 76, 191)); 
  x := 600; 
  y := 300; 
  speed := 4; 
  OnKeyDown := KeyDown; 
  var objTimer := new Timer(100, TimerProc); 
  objTimer.Start; 
  
end.

uses graphABC,crt;
procedure Smail(x,y,r:integer);
begin
setbrushcolor(clYellow);
circle(x,y,r);
setbrushcolor(clBlue);
circle(x-8,y-5,3);
circle(x+8,y-5,3);
setpencolor(clBlack);
Arc(x,y+10,8,10,170);
end;
var x,y,r,d:integer;
    k:char;
begin
hidecursor;
x:=windowwidth div 2;
y:=windowheight div 2;
r:=15;
textout(x-80,20,'Управление стрелками');
textout(x-50,40,'Выход - Esc');
Smail(x,y,r);
lockdrawing;
repeat
if keypressed then
  begin
    k:=readkey;
    if k=#80 then
      begin
       clearwindow;
       if y>windowheight-2*r then d:=0
       else d:=10;
       y:=y+d;
       Smail(x,y,r);
       delay(100);
       redraw;
      end;
    if k=#72 then
      begin
        clearwindow ;
        if y<2*r then d:=0
        else d:=10;
        y:=y-d;
        Smail(x,y,r);
        delay(100);
        redraw
       end;
    if k=#75 then
      begin
       clearwindow;
       if x>windowwidth-2*r then d:=0
       else d:=10;
       x:=x+d;
       Smail(x,y,r);
       delay(100);
       redraw;
      end;
    if k=#77 then
      begin
       clearwindow;
       if x<2*r then d:=0
       else d:=10;
       x:=x-d;
       Smail(x,y,r);
       delay(100);
       redraw;
      end;
    if k=#27 then exit;
  end;
until k=#27;
end.

uses
  GraphABC, crt;
 
var
  x, y, r, d: integer;
  dx: integer;
  dy: integer;
  speed: integer;
  k: char;
 
procedure Riss;
begin
  ClearWindow;
  Inc(x, dx); Inc(y, dy);
  setbrushcolor(clred);
  Rectangle(x, y, x + 30, y + 30);
  redraw;
end;
 
 
begin
  lockdrawing;
  SetWindowSize(900, 600);
  CenterWindow;
  x := 600;
  y := 300;
  
  
  Riss;
  repeat
    if keypressed then
    begin
      k := readkey;
      if k = #80 then
      begin
        clearwindow;
        if y > windowheight - 2 * r then d := 0
        else d := 10;
        y := y + d;
        Riss;
        delay(100);
        redraw;
      end;
      if k = #72 then
      begin
        clearwindow;
        if y < 2 * r then d := 0
        else d := 10;
        y := y - d;
        Riss;
        delay(100);
        redraw
      end;
      if k = #75 then
      begin
        clearwindow;
        if x > windowwidth - 2 * r then d := 0
        else d := 10;
        x := x + d;
        Riss;
        delay(100);
        redraw;
      end;
      if k = #77 then
      begin
        clearwindow;
        if x < 2 * r then d := 0
        else d := 10;
        x := x - d;
        Riss;
        delay(100);
        redraw;
      end;
    end;
  until k = #27;
  
end.