Проблема с управлением перемещением объекта по экрану

uses GraphABC;
type Engine = class
  const numberWidthMap = 15;
  const numberHeightMap = 15;
  
  sizeBlock:=32;
  
  map: array[0..numberWidthMap-1, 0..numberHeightMap-1] of integer :=
   ((1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1),
    (1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1),
    (1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1),
    (1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1),
    (1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1),
    (1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1),
    (1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1),
    (1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1),
    (1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1),
    (1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1),
    (1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1),
    (1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1),
    (1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1),
    (1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1),
    (1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1));
   
   {-----КАМЕРА-----}
   camX, camY :real;
   pov :real;
   fov :=60;
   
   upButton, downButton, rightButton, leftButton :boolean;
   
   {-----ЛУЧ-----}
   rayX, rayY :real;
   dirX, dirY :real;
   angle :real;
 
 
   constructor Create(camX,camY:real);
   procedure Render();
   procedure Update();
   procedure MoveCam();
   procedure KeyDown (key :integer);
   procedure KeyUp (key :integer);
end;
 
 
 
constructor Engine.Create(camX, camY :real);
begin
self.camX:=camX;
self.camY:=camY;
window.SetSize(800, 600);
window.caption:='3D';
onKeyDown:=keyDown;
onKeyUp:=keyUp;
lockdrawing();
Update();
end;
 
procedure Engine.KeyDown(key :integer);
begin
if key = VK_A then leftButton :=true;
if key = VK_D then rightButton :=true;
if key = VK_W then upButton :=true;
if key = VK_S then downButton :=true;
end;
 
procedure Engine.KeyUp(key :integer);
begin
if key = VK_A then leftButton :=false;
if key = VK_D then rightButton :=false;
if key = VK_W then upButton :=false;
if key = VK_S then downButton :=false;
end;
 
procedure Engine.MoveCam();
var newX, newY :real;
begin
 
angle:=pov-(fov/2);
newX:=camX;
newY:=camY;
 
if leftButton=true then pov-=1;
if rightButton=true then pov+=1;
 
if(pov>360) then pov-=360; 
if(pov<0) then pov+=360;
 
if upButton = true then
begin
newX+=cos(degTorad(angle));
newY+=sin(degTorad(angle));
end;
 
if downButton = true then
begin
newX-=cos(degTorad(angle));
newY-=sin(degTorad(angle));
end;
 
if(map[round(newX) div sizeBlock, round(newY) div sizeBlock]) = 1 then
begin
camX:=newX;
camY+=newY;
end;
 
end;
 
 
procedure Engine.Render();
begin
window.Clear(clBlack);
SetBrushColor(clRed);
for var y:=0 to numberHeightMap-1 do
for var x:=0 to numberWidthMap-1 do
begin
if map[x, y]=1 then Rectangle(x*sizeBlock, y*sizeBlock, 
x*sizeBlock+sizeBlock, y*sizeBlock+sizeBlock);
end;
SetBrushColor(clGreen);
Rectangle(round(camX), round(camY), round(camX)+sizeBlock, round(camY)+sizeBlock);
Redraw();
end;
 
procedure Engine.Update();
begin
while true do
begin
moveCam();
Render();
end;
end;
 
var game :Engine;
 
 
 
begin
game :=new Engine(100, 100);
end.