Перемещать прямоугольник по горизонтали PascalABC - Pascal ABC

Формулировка задачи:

Графически в PascalABC нужно сделать следующую процедуру. Перемещать прямоугольник по горизонтали с заданным шагом и задержкой в 1 сек. Что-то вроде этого :

uses GraphABC;
begin
  Window.Width:=300;
  Window.Height:=310;
  LockDrawing;
  for var x:=1 to WindowWidth-10  do
  begin
    Window.Clear;
    Brush.Color := clRandom;{какой цвет нужен тот и ставьте}
    Rectangle(x,x,x+15,x+20);
  Sleep(10);{задержка в миллисекундах}
  Redraw;
  end;
end.

Только здесь по диагонали,а надо по горизонтали,прошу помочь.

Решение задачи: «Перемещать прямоугольник по горизонтали PascalABC»

Листинг программы

uses
    GraphABC;
 
begin
    Window.Width := 300;
    Window.Height := 310;
    LockDrawing;
    for var x := 1 to WindowWidth - 10  do
    begin
        Window.Clear;
        Brush.Color := clRandom;
        Rectangle(x, 20, x + 15, 40);
        Sleep(10);
        Redraw;
    end;
end.

Объяснение кода листинга программы

В начале кода используется библиотека GraphABC, которая предоставляет возможности для работы с графикой.
Затем определяются размеры окна: ширина 300 единиц, высота 310 единиц.
Следующий шаг - установка флага LockDrawing в значение True, что позволяет изменять графическое представление окна.
Затем идет цикл for, который выполняется от 1 до WindowWidth (ширины окна) минус 10.
Внутри цикла окно очищается с помощью Window.Clear, устанавливается цвет кисти на случайный с помощью Brush.Color := clRandom, и рисуется прямоугольник с помощью функции Rectangle.
После каждого рисунка выполняется команда Sleep(10), которая задерживает выполнение программы на 10 миллисекунд.
После окончания цикла выполняется команда Redraw, которая обновляет графическое представление окна.
Наконец, флаг LockDrawing сбрасывается в значение False, чтобы можно было изменять другие свойства окна.