Изменение координат фигур. Как нарисовать пружину?

Rk:=strtofloat(edit1.text);
  edit2.Text:=floattostr( 2*Rk+20);
 Dk:=strtofloat(edit2.text);
  edit3.Text:=floattostr( 2*Rk);
 Lp:=strtofloat(edit3.text);
    Dk1:=round(Dk);
    Lp1:=round(Lp);
    Lp2:=round(Lp);
    Rk:=round(Rk1);
     Circle.Height:=Dk1;
     Circle.Width:=Dk1;
     Shape5.Width:=Dk1;

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.StdCtrls,math;
 
type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    TrackBar1: TTrackBar;
    procedure PaintBox1Paint(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
With TrackBar1 do
 begin
 Min:=3;
 Max:=10;
 Position:=5;
 end;
end;
 
procedure TForm1.PaintBox1Paint(Sender: TObject);
var
X1,Y1,X2,Y2,X3,Y3,P,R1:integer;
Gamma:Extended;
begin
P:= TrackBar1.Position;
X1:=300;
Y1:=660;
X2:= X1-50;
Y2:=  Y1-280;
R1:=30;
 
Gamma:= (TrackBar1.Position-3)*12.8572 ;
 
 
 With PaintBox1.Canvas do
 begin
   Fillrect(canvas.cliprect);
  // Пружина
   Moveto(X1-60,Y1);
   Lineto(X1,Y1);
   Lineto(X1-60,Y1-P);
   Lineto(X1,Y1-P*2);
   Lineto(X1-60,Y1-P*3);
   Lineto(X1,Y1-P*4);
   Lineto(X1-60,Y1-P*5);
   Lineto(X1,Y1-P*6);
   Lineto(X1-60,Y1-P*7);
   Lineto(X1,Y1-P*8);
   Lineto(X1-60,Y1-P*9);
   Lineto(X1,Y1-P*10);
   Lineto(X1-60,Y1-P*11);
   Lineto(X1,Y1-P*12);
 
 
  X3:=X2+Round(R1*sin(Gamma*2*pi/180));
  Y3:=Y2+Round(R1*cos(Gamma*2*pi/180));
 
 
 
   Moveto(X3,Y3);
   AngleArc(X3, Y3, 60,0, 360); //Окружность(Цилиндр)
   Rectangle(X1-120,Y1-275,X1-40,Y1-285);
   Rectangle(X1-100,Y3-p+65,X1+40,Y3-p+220);//Поршень
   Rectangle(X1-120,Y1-160,X1+60,Y1-180);
   Pixels[X2,Y2]:=clBlack;
   Moveto(X2,Y2);
   Lineto(X3,Y3);
 
  pen.Width:=2;
 end;
end;
 
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
 PaintBox1Paint(Sender);
 
end;
 
end.