Помогите сделать к данной программы анимацию

[Prosto_closno]

uses
  GraphABC;
begin
  SetWindowWidth(800);                                        
  SetWindowHeight(600);                                       
  SetPenWidth(3);
  RoundRect(200, 300, 600, 350, 20, 20);                      
  FloodFill(400, 320, clNavy);
  Circle(290, 350, 30);                                      
  FloodFill(300, 360, clblack);
  Circle(510, 350, 30);                                       
  FloodFill(520, 360, clblack);
  
  begin
    SetPenWidth(3);
    Line(300, 300, 340, 250);
    Line(340, 250, 470, 250);
    Line(470, 250, 510, 300);
    Line(405, 250, 405, 350);
    Line(510, 300, 510, 320);
    Line(300, 300, 300, 320);
    Line(380, 310, 390, 310);
    Line(480, 310, 490, 310);
    Line(300, 300, 510, 300);
    
  end;
  begin
    SetPenColor(clgray);                                 
    SetPenWidth(15);                                       
    Circle(510, 350, 10);                                 
    Circle(290, 350, 10);                                 
    
  end;
  begin
    SetPenWidth(3);
    SetPenColor(clYellow);
    Circle(100, 100, 30);
    FloodFill(110, 110, clYellow);
    Line(140, 120, 200, 150);
    Line(130, 135, 150, 160);
    Line(120, 140, 140, 190);
    Line(105, 145, 110, 170);
    Line(95, 145, 90, 190);
  end;
  begin
  SetPenWidth(20);
  SetPenColor(clgreen);
  Line(0, 385, 800, 385);
  SetPenWidth(3);
    SetPenColor(clOlive);
    Rectangle(0, 385, 800, 600);
    FloodFill(110, 390, clOlive);
  end;
end.

чтобы машина двигалась по линии




________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Serge_Bliznykov]

вот часть, которая выводит автомобиль:

  begin
    // корпус
    RoundRect(200, 300, 600, 350, 20, 20);
    FloodFill(400, 320, clNavy);

    // салон/Крыша/двери
    SetPenWidth(3);
    Line(300, 300, 340, 250);
    Line(340, 250, 470, 250);
    Line(470, 250, 510, 300);
    Line(405, 250, 405, 350);
    Line(510, 300, 510, 320);
    Line(300, 300, 300, 320);
    Line(380, 310, 390, 310);
    Line(480, 310, 490, 310);
    Line(300, 300, 510, 300);

    // колёса (сначал покрышки
    Circle(290, 350, 30);
    FloodFill(300, 360, clblack);
    Circle(510, 350, 30);
    FloodFill(520, 360, clblack);

    // теперь колесные диски
    SetPenColor(clgray);
    SetPenWidth(15);
    Circle(510, 350, 10);
    Circle(290, 350, 10);

  end;

если Вы её перерисуете методом базисной точки (введите переменные x и y и рисуйте всё отталкиваясь от них)

ну, например, вместо:

    // корпус
    RoundRect(200, 300, 600, 350, 20, 20);
    FloodFill(400, 320, clNavy);

    // корпус
    x := 200; y:=300;
    RoundRect(x, y, x+400, y+50, 20, 20);
    FloodFill(x+200, y+20, clNavy);

и т.д.
так, чтобы изменив x,y - автомобиль нарисовался в новом месте.
тогда всё просто.
рисуете авто в точке x,y
делаете маленькую паузу (1/20 секунды), стираете авто,
изменяете позицию x,y и повторяете цикл.
всё, анимация готова.