При движении квадрата стирать его из предыдущей позиции

uses GraphABC, Timers; 
 
var 
 x,y: integer; 
 dx: integer; 
 dy: integer; 
 speed: integer; 
procedure TimerProc; 
begin 
 Inc(x, dx); Inc(y, dy);
 SetBrushColor(clRed);
 Rectangle(x, y, x+50, y+50);
end; 
 
procedure KeyDown(Key: integer); 
begin 
 case Key of 
 VK_Escape: Halt; 
 VK_Left, VK_A: begin dx:=-speed-46; dy:=0; end; 
 VK_Right, VK_D: begin dx:=+speed+46; dy:=0; end; 
 VK_Up,VK_W: begin dy:=-speed-46; dx:=0; end; 
 VK_Down, VK_S: begin dy:=+speed+46; dx:=0; end;
 12, VK_X: begin dx:=0; dy:=0; end; 
 end; 
end; 
 begin 
 SetWindowSize(550,500); 
 x:=200;
 y:=300; 
 speed:=4; 
 OnKeyDown := KeyDown; 
 var objTimer := new Timer(400, TimerProc);
 objTimer.Start;
ClearWindow(clBlack);
      SetPenColor(clGray);
for var i := 1 to 10 do
      begin
        Line(0, i * 50, 550, i * 50);
        Line(i * 50, 0, i * 50, 500);
end;
end.

uses GraphABC, Timers; 
 
var
  x, y: integer; 
  dx: integer; 
  dy: integer; 
  speed: integer;
 
procedure TimerProc;
begin
  ClearWindow(clBlack);
  SetPenColor(clGray);
  for var i := 1 to 10 do
  begin
    Line(0, i * 50, 550, i * 50);
    Line(i * 50, 0, i * 50, 500);
  end;
  Inc(x, dx);Inc(y, dy);
  SetBrushColor(clRed);
  Rectangle(x, y, x + 50, y + 50);
  Redraw;
end;
 
procedure KeyDown(Key: integer);
begin
  case Key of 
    VK_Escape: Halt; 
    VK_Left, VK_A: begin dx := -speed - 46;dy := 0; end; 
    VK_Right, VK_D: begin dx := +speed + 46;dy := 0; end; 
    VK_Up, VK_W: begin dy := -speed - 46;dx := 0; end; 
    VK_Down, VK_S: begin dy := +speed + 46;dx := 0; end;
    12, VK_X: begin dx := 0;dy := 0; end; 
  end; 
end;
 
begin
  SetWindowSize(550, 500); 
  x := 200;
  y := 300; 
  speed := 4; 
  LockDrawing;
  OnKeyDown := KeyDown; 
  var objTimer := new Timer(400, TimerProc);
  objTimer.Start;
end.