Как сделать анимацию кружка, двигающемуся по Треугольнику Серпинского?

Я написала код, который на форме рисует треугольничек Серпинского в полярной и декартовой системе. Хотела ещё сделать анимацию кругляшка или квадратика, который будет бегать по внешнему треугольничку. Просто по кругу, от одной точки к другой. Как это лучше всего будет сделать?

Я всё рисую на Канвасе в самой форме на ивенте OnPaint Вот весь код:

unit Unit3;
interface
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type
  TPolar = class(TForm)
    procedure FormPaint(Sender: TObject);
    procedure FormResize(Sender: TObject);
  end;

var
  Polar: TPolar;

implementation

{$R *.dfm}

Uses Unit1, Unit2;

procedure Serp(aCanvas :TCanvas; A, B, C :TPoint; n :integer);
  var x1, x2, x3, y1, y2, y3: real;
  begin
    aCanvas.MoveTo(A.X, A.Y);
    aCanvas.LineTo(B.X, B.Y);
    aCanvas.LineTo(C.X, C.Y);
    aCanvas.LineTo(A.X, A.Y);
    if n > 0 then
    begin
      Serp(aCanvas, A, Point((A.X + B.X) div 2, (A.Y + B.Y) div 2), Point((A.X + C.X) div 2, (A.Y + C.Y) div 2), n-1);
      Serp(aCanvas, B, Point((B.X + C.X) div 2, (B.Y + C.Y) div 2), Point((B.X + A.X) div 2, (B.Y + A.Y) div 2), n-1);
      Serp(aCanvas, C, Point((C.X + A.X) div 2, (C.Y + A.Y)div 2), Point((C.X + B.X) div 2, (C.Y + B.Y) div 2), n-1);
    end;

  end;

procedure TPolar.FormPaint(Sender: TObject);
  var
  A, B, C :TPoint;
  Scale :Integer;
  Ratio :integer;
  towhat :integer;
  i :integer;
  MaxPoint :integer;
  MaxPointX :integer;

begin
  Scale := 40;
  Ratio := (ClientWidth + ClientHeight) div Scale;
  //showmessage(IntToStr(Ratio));

  //Очистка экрана
  Canvas.Brush.Color := clWhite;
  Canvas.FillRect(ClientRect);

  Canvas.Brush.Color := clNavy;
  var P := ClientRect.CenterPoint;

  A.X := StrToInt(MainForm.EditAx.Text) * Ratio;
  A.Y := - StrToInt(MainForm.EditAy.Text) * Ratio;
  B.X := StrToInt(MainForm.EditBx.Text) * Ratio;
  B.Y := - StrToInt(MainForm.EditBy.Text) * Ratio;
  C.X := StrToInt(MainForm.EditCx.Text) * Ratio;
  C.Y := - StrToInt(MainForm.EditCy.Text) * Ratio;

  A := (A+P); B := B+P; C := C+P;

  var MaxX, MaxY, MinX, MinY :TPoint;

  MaxX.X := ClientWidth; MaxX.Y := P.Y;
  MinX.X := -ClientWidth; MaxX.Y := P.Y;
  MaxY.X := P.X; MaxY.Y := -ClientHeight;
  MinY.X := P.X; MinY.Y := ClientHeight;

  // рисуем нулевой луч
  with Polar.Canvas do
  begin

    Pen.Width := 3;
    MoveTo(P.X, P.Y);
    LineTo(MaxX.X, P.Y);
    MoveTo(P.X, P.Y);
    LineTo(P.X, MaxY.Y);
    MoveTo(P.X, P.Y);
    LineTo(P.X, MinY.Y);
    MoveTo(P.X, P.Y);
    LineTo(MinX.X, P.Y);

    if A.X > B.X then
    begin
      if A.X > C.X then
      begin
        towhat := A.X;
        MaxPoint := 1;
      end

      else begin
        towhat := C.X;
        MaxPoint := 3;
      end;

    end
    else
    begin
      if B.X > C.X then begin
        towhat := B.X;
        MaxPoint := 2;
      end
        else begin
        towhat := C.X;
        MaxPoint := 3;
        end;
    end;

    towhat := (towhat - P.X) div ratio;

    //рисуем круги радиуса r(i)
    for i := 1 to towhat do
    begin
      Pen.Width := 1;
      Brush.Style := bsClear;
      Ellipse(P.X - Ratio * i, P.Y - Ratio * i, P.X + Ratio * i, P.Y + Ratio * i);

    end;
  end;


  //рисуем градусные линии

  case MaxPoint of
    1 : MaxPointX := (P.X - A.X) div Ratio;
    2 : MaxPointX := (P.X - B.X) div Ratio;
    3 : MaxPointX := (P.X - C.X) div Ratio;
  end;

  for i := 0 to 11 do
  begin
    Polar.Canvas.MoveTo(P.X, P.Y);
    Polar.Canvas.LineTo(P.X + Round(Ratio * MaxPointX * -Cos(i*2*Pi/12)), P.Y - Round( Ratio * MaxPointX * -Sin(i*2*Pi/12)));
    Polar.Canvas.TextOut(Canvas.PenPos.X, Canvas.PenPos.Y, ' ' + intToStr(30 * i));

  end;

  //треугольничек

  Serp(Polar.Canvas, A, B, C, 3);

  // анимация


end;

procedure TPolar.FormResize(Sender: TObject);
begin
  Invalidate;
end;

end.