Как сделать паузу в анимации?

uses
  GraphABC, ABCObjects;
 
label b;
var
  buton: RectangleABC;
  
  C1, C2: ContainerABC;
  x1, x2, x01, x02, y01, y02, v1, v2, t, q: integer;
 
procedure MyMouseDown(x, y, mb: integer);
 
begin
  var ob := ObjectUnderPoint(x, y);
  if (ob <> nil) and (ob is RectangleABC) then 
    Q := 1                                         
  else begin
    q := 0; 
  end;
end;
    /// Рисует точку с координатами х,у, радиусом r, подписывает
    /// ее сверху строчкой S,и присваевает ее контейнеру С1.
procedure po(S: string; x, y, r: integer; var C1: ContainerABC);
 
var
  A: TextABC;
  c: CircleABC;
begin
  c1 := new ContainerABC(x, y);
  A := new TextABC(0, 10, 14, S);
  c := new CircleABC(5, 30, r, clBlue);
  C1.Add(A);
  C1.Add(C);
end;
 
procedure setka(x, h: integer);
var
  h1: integer;
begin
  SetPenColor(clCadetBlue);
  //Горизонтальные линии
  while h1 < WindowHeight do 
  begin
    h1 += h;                         
    Line(0, -20 + h1, GraphABC.WindowWidth, -20 + h1);
  end;
  h1 := 0;
  // Вертикальные линии
  while h1 < WindowWidth do 
  begin
    h1 += h;                      
    Line(h1, 0, h1, GraphABC.WindowHeight);
    TextOut(h1, x + 5, h1);
  end;
  
  SetPenWidth(3);
  Line(0, x, GraphABC.WindowWidth, x); // жирная линия
end;
 
begin
  SetWindowSize(1200, 600);
  SetWindowPos(0, 0);
  setka(180, 100);
  x01 := 10;
  x02 := 1100;
  y01 := 150;
  y02 := 150;
  v1 := 2;
  v2 := -4;
  x1 := x01;
  x2 := x02;
  po('A', x01, y01, 5, c1);
  po('B', x02, y02, 5, c2);
  buton := new RectangleABC(500, 500, 300, 50, clAzure);
  buton.Text := 'Стоп!';
  OnMouseDown := MyMouseDown;
  b:   
  while x1 < x2 do 
  begin
//--------------------
if Q = 1 then exit;
//---------------------
    t += 1;
    x1 := x01 + v1 * t; //Формула расчета координаты автомобиля 1.
    x2 := x02 + v2 * t; //Формула расчета координаты автомобиля 2.
    C1.MoveTo(x1, y01);
    C2.MoveTo(x2, y02);
    Sleep(10);
  end;
end.

uses
  GraphABC, ABCObjects;
 
var
  buton: RectangleABC;
  
  C1, C2: ContainerABC;
  y01, y02, t, q: integer;
  x1, x2, x01, x02, v1, v2 : real;
 
procedure MyMouseDown(x, y, mb: integer);
begin
  var ob := ObjectUnderPoint(x, y);
  if (ob <> nil) and (ob is RectangleABC) then  begin
    if Q=0 then begin
      Q:=1; buton.Text := 'Продолжить!';
    end
    else begin
      Q:=0; buton.Text := 'Стоп!';
    end;
    
  end;
end;
    /// Рисует точку с координатами х,у, радиусом r, подписывает
    /// ее сверху строчкой S,и присваевает ее контейнеру С1.
procedure po(S: string; x, y, r: integer; var C1: ContainerABC);
 
var
  A: TextABC;
  c: CircleABC;
begin
  c1 := new ContainerABC(x, y);
  A := new TextABC(0, 10, 14, S);
  c := new CircleABC(5, 30, r, clBlue);
  C1.Add(A);
  C1.Add(C);
end;
 
procedure setka(x, h: integer);
var
  h1: integer;
begin
  SetPenColor(clCadetBlue);
  //Горизонтальные линии
  while h1 < WindowHeight do 
  begin
    h1 += h;                         
    Line(0, -20 + h1, GraphABC.WindowWidth, -20 + h1);
  end;
  h1 := 0;
  // Вертикальные линии
  while h1 < WindowWidth do 
  begin
    h1 += h;                      
    Line(h1, 0, h1, GraphABC.WindowHeight);
    TextOut(h1, x + 5, h1);
  end;
  
  SetPenWidth(3);
  Line(0, x, GraphABC.WindowWidth, x); // жирная линия
end;
 
begin
  SetWindowSize(1200, 600);
  SetWindowPos(0, 0);
  setka(180, 100);
  x01 := 10;
  x02 := 1100;
  y01 := 150;
  y02 := 150;
  v1 := 2/10;
  v2 := -4/10;
  x1 := x01;
  x2 := x02;
  po('A', round(x01), y01, 5, c1);
  po('B', round(x02), y02, 5, c2);
  buton := new RectangleABC(500, 500, 300, 50, clAzure);
  buton.Text := 'Стоп!';
  q:=0;
  OnMouseDown := MyMouseDown;
  
  while x1 < x2 do 
  begin
    if Q = 0 then begin
      t += 1;
      x1 := x01 + v1 * t; //Формула расчета координаты автомобиля 1.
      x2 := x02 + v2 * t; //Формула расчета координаты автомобиля 2.
      C1.MoveTo(round(x1), y01);
      C2.MoveTo(round(x2), y02);
    end;  
    Sleep(10);
  end;
end.