При движении квадрата стирать его из предыдущей позиции - PascalABC.NET - Ответ 10279438

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.