разложите все по полочкам

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ExtCtrls, StdCtrls;
 
type
  TVector2f = record
    X, Y: double;
  end;
 
const
  FivePStar: array[0..9]of TVector2f =
  (
    (X:0;Y:1),(X:0.22451398828;Y:0.30901699437),
    (X:0.95105651629;Y:0.30901699437),(X:0.363271264;Y:-0.1180339887),
    (X:0.58778525229;Y:-0.8090169943),(X:0;Y:-0.38196601125),
    (X:-0.58778525229;Y:-0.8090169943),(X:-0.363271264;Y:-0.1180339887),
    (X:-0.95105651629;Y:0.30901699437),(X:-0.22451398828;Y:0.30901699437)
  );
 
type
  TForm2 = class(TForm)
    Timer1: TTimer;
    ColorDialog1: TColorDialog;
    PaintBox1: TPaintBox;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    TrackBar2: TTrackBar;
    TrackBar4: TTrackBar;
    TrackBar1: TTrackBar;
    TrackBar3: TTrackBar;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure TrackBar2Change(Sender: TObject);
    procedure TrackBar3Change(Sender: TObject);
    procedure TrackBar4Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
 
  private
    { Private declarations }
    Color: TColor; //Цвет фона
  public
    { Public declarations }
  end;
 
  TFigure = class
    Color: TColor;
    Scale: double;
    Breath: double;
    BreathSpeed: double;
    Alpha: double;
    Center: TVector2f;
    constructor Create;
    procedure Draw;
    procedure BreathStep;
  end;
 
  TTrajectory = class
    Color: TColor;
    Scale: double;
    Points: array[0..1439]of TVector2f;
    CurrPos: integer;
    MoveSpeed: integer;
    constructor Create;
    procedure Draw;
    function GetNewPosition: TVector2f;
    procedure NextTrjPoint;
  end;
var
  Form2: TForm2;
  Figure: TFigure;
  Trajectory: TTrajectory;
 
implementation
 
{$R *.dfm}
 
constructor TFigure.Create;
begin
  inherited Create;
  Scale := 0.5;                  //масштаб
  Alpha := 0;
  Breath:= 0;                    //дыхание
  BreathSpeed := 0.5;            //скорость дыхания
  Center.X := 0;
  Center.Y := 0;
  Color := clBlack;
end;
 
procedure TFigure.Draw;
var
  I: integer;
  sc, w2, h2: integer;
begin
  w2 := Form2.PaintBox1.ClientWidth div 2;      //ширина
  h2 := Form2.PaintBox1.ClientHeight div 2;     //высота
  if w2 > h2 then sc := h2 else sc := w2;
 
  Form2.PaintBox1.Canvas.Pen.Color := Color;
  Form2.PaintBox1.Canvas.MoveTo(w2+round(Center.X*sc)+round(FivePStar[0].X*Breath*Scale*sc),
                h2-round(Center.Y*sc)-round(FivePStar[0].Y*Breath*Scale*sc));
  for I := 1 to 9 do
    Form2.PaintBox1.Canvas.LineTo(w2+round(Center.X*sc)+round(FivePStar[I].X*Breath*Scale*sc),
                h2-round(Center.Y*sc)-round(FivePStar[I].Y*Breath*Scale*sc));
  Form2.PaintBox1.Canvas.LineTo(w2+round(Center.X*sc)+round(FivePStar[0].X*Breath*Scale*sc),
                h2-round(Center.Y*sc)-round(FivePStar[0].Y*Breath*Scale*sc));
end;
 
procedure TFigure.BreathStep;
begin
  Alpha := Alpha+2*PI/25*BreathSpeed;
  Breath := (sin(Alpha)+1)/2;
end;
 
constructor TTrajectory.Create;
var
  I: integer;
begin
  inherited Create;
  Color := clBlack;
  Scale := 0.8;
  CurrPos := 0;
  MoveSpeed := 1;
  for I := 0 to 1440 - 1 do
  begin
    Points[I].X := cos(3*I/1440*2*PI);
    Points[I].Y := sin(1*I/1440*2*PI);
  end;
end;
 
procedure TTrajectory.Draw;
var
  I: integer;
  sc, w2, h2: integer;
begin
  w2 := Form2.PaintBox1.ClientWidth div 2;
  h2 := Form2.PaintBox1.ClientHeight div 2;
  if w2 > h2 then sc := h2 else sc := w2;
 
  for I := 0 to 1440 - 1 do
    Form2.PaintBox1.Canvas.Pixels[w2+round(Points[I].X*Scale*sc),h2-round(Points[I].Y*Scale*sc)] := Trajectory.Color;
end;
 
function TTrajectory.GetNewPosition: TVector2f;
var
  Tmp: TVector2f;
begin
  Tmp.X := Points[CurrPos].X*Scale;
  Tmp.Y := Points[CurrPos].Y*Scale;
  Result := Tmp;
end;
 
procedure TTrajectory.NextTrjPoint;
begin
  CurrPos := (CurrPos + MoveSpeed)mod 1440;
end;
 
 
 
procedure TForm2.FormCreate(Sender: TObject);
begin
  ControlStyle := [csOpaque];
  Color := clWhite;
  Figure := TFigure.Create;
  Trajectory := TTrajectory.Create;
end;
 
procedure TForm2.FormDestroy(Sender: TObject);
begin
  Figure.Free;
  Trajectory.Free;
end;
 
procedure TForm2.Timer1Timer(Sender: TObject);
begin
  Figure.Center := Trajectory.GetNewPosition;
  Trajectory.NextTrjPoint;
  PaintBox1.Canvas.Brush.Color := Color;
  PaintBox1.Canvas.FillRect(PaintBox1.ClientRect);
  Trajectory.Draw;
  Figure.Draw;
  Figure.BreathStep;
end;
 
procedure TForm2.TrackBar1Change(Sender: TObject);
begin
  Figure.Scale := TrackBar1.Position/10;
end;
 
procedure TForm2.TrackBar2Change(Sender: TObject);
begin
  Figure.BreathSpeed := TrackBar2.Position/10;
end;
 
procedure TForm2.TrackBar3Change(Sender: TObject);
begin
  Trajectory.Scale := TrackBar3.Position/10;
end;
 
procedure TForm2.TrackBar4Change(Sender: TObject);
begin
  Trajectory.MoveSpeed := TrackBar4.Position;
end;
 
 
procedure TForm2.Button1Click(Sender: TObject);
begin
if ColorDialog1.Execute then
    Figure.Color := ColorDialog1.Color;
end;
 
procedure TForm2.Button2Click(Sender: TObject);
begin
  if ColorDialog1.Execute then
    Trajectory.Color := ColorDialog1.Color;
end;
 
procedure TForm2.Button3Click(Sender: TObject);
begin
 if ColorDialog1.Execute then
    Color := ColorDialog1.Color;
end;
 
end.

 Figure.Draw;
  Figure.BreathStep;