Движение рисунка - PascalABC.NET

uses graphABC;
begin
 Window.Title := 'Мое';
 setwindowwidth(600); 
  setwindowheight(600); 
  setpenwidth(1);
  
  for var i := 100 downto 0 do
    begin
      Window.Clear;
      Coordinate.OriginX := i*5;
 
  //кузов
  line(150, 150, 300, 150);
  line(150, 150, 130, 190); 
  line(130, 190, 50, 190 );
  line(50, 190, 50, 270);
  line(50, 270, 300, 270);
  line(300, 270, 300, 150);
  // колеса
  circle(115,270, 25);
  circle(250, 270, 25);
  ///floodfill(250,270,clblack);
  ///floodfill(115,270,clblack);
     //двери
  line(155,155,205,155);
  line(155,155, 133, 200);
  line(133,200, 133, 230);
  line(133, 230, 205,230);
  line(205,230, 205,155);
  ///FloodFill(156, 156, clred);
  line(200, 205, 200, 210, clgray);
  line(200, 210, 190, 210, clgray);
  line(190, 210, 190, 205, clgray);
  line(190, 205, 200, 205, clgray);
  ///FloodFill(191, 206, clgray); 
  //окна
  line(160, 160, 200, 160);
  line(160, 160, 140, 200);
  line(200, 160, 200, 200);
  line(200, 200, 140, 200);
  ///Floodfill(161, 161, clskyblue);
  line(250, 200, 250, 155);
  line(250, 155, 295, 155);
  line(295, 155, 295, 200);
  line(295, 200, 250, 200);
  ///FloodFill(251, 199, clskyblue);
  ///FloodFill(151, 151, clred);
  //габариты
  circle(100, 210, 3);
  ///floodfill(100, 210, clyellow);
 
      Sleep(100);
    end;
end.