Возникли неполадки при создании игры на PascalAbc.net

uses GraphABC, ABCobjects, Timers;
var
OPlayer: RectangleABC;
OBot, Ammo1, Ammo2, Ammo3, Ammo4: array [1..9999] of RectangleABC;
direction, click, Am: integer; 
procedure MouseMove(x, y, mb: integer);
begin
Oplayer.Top:= y - 16;
Oplayer.Left:= x - 16;
end;
procedure Player();
begin
Oplayer:= RectangleABC.Create(300, 650, 32, 32, GraphABC.clCyan);
end;
procedure MoveAmmo();
begin
for var i:= 1 to Am do
begin
Ammo1[i].top:= Ammo1[i].top - 2;
Ammo2[i].left:= Ammo2[i].left + 2;
Ammo3[i].top:= Ammo3[i].top + 2;
Ammo4[i].left:= Ammo4[i].left - 2;
end;
end;
procedure KeyDown(key:integer);
var b, i:integer;
begin
case key of
VK_W: direction:= 1;
VK_D: direction:= 2;
VK_S: direction:= 3;
VK_A: direction:= 4;
end;
end;
procedure Bot();
begin
end;
procedure Ammo;
var
i: integer;
begin
while true do
begin
Am:= 1;
if direction = 1 then
begin
Ammo1[Am]:= RectangleABC.Create(Oplayer.left + 10, Oplayer.top - 10, 10, 10);
Am:= Am + 1;
end;
if direction = 2 then
begin
Ammo2[Am]:= RectangleABC.Create(Oplayer.left + 31, Oplayer.top + 10, 10, 10);
Am:= Am + 1;
end;
if direction = 3 then
begin
Ammo3[Am]:= RectangleABC.Create(Oplayer.left + 12, Oplayer.top + 31, 10, 10);
Am:= Am + 1;
end;
if direction = 4 then
begin
begin
Ammo4[Am]:= RectangleABC.Create(Oplayer.left - 10, Oplayer.top + 10, 10, 10);
Am:= Am + 1;
end;
end;
sleep(100);
end;
end;
procedure interf();
begin
end;
procedure Update();
begin
MoveAmmo();
end;
procedure KeyUp(key:integer);
begin
direction:= 0;
end;
procedure windowGame(nameGame : string ; w , h : integer);
begin
window.Caption:=nameGame;
window.SetSize(w , h);
window.IsFixedSize:=true;
window.Clear();
end;
begin
var timeGame := new timer(1 , Update);
timeGame.start();
windowGame('Game' , 600 , 700);
Player();
OnKeyDown := KeyDown;
OnKeyUp:= KeyUp;
OnMouseMove:= MouseMove;
Ammo();
end.

procedure Ammo;
begin
  Am := 0;
  while true do
    begin
      Am += 1;
      case direction of
        1 : Ammo1[Am] := RectangleABC.Create(Oplayer.left + 10, Oplayer.top - 10, 10, 10);
        2 : Ammo2[Am] := RectangleABC.Create(Oplayer.left + 31, Oplayer.top + 10, 10, 10);
        3 : Ammo3[Am] := RectangleABC.Create(Oplayer.left + 12, Oplayer.top + 31, 10, 10);
        4 : Ammo4[Am] := RectangleABC.Create(Oplayer.left - 10, Oplayer.top + 10, 10, 10);
      end;
      sleep(100);
   end;
end;