Изобразить прямоугольную спираль из 5 витков. Обеспечить циклическое изменение (1 пиксел - 3 пиксела) толщины линий, которыми отрисована спираль

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  x,y,n:integer;
begin
x:=round(image1.width/2)-50;
y:=round(image1.height/2)-50;
Image1.Canvas.MoveTo(x,y);
n:=2;
  while n<>7 do
   begin
    Image1.Canvas.lineto(x+n*25+40,y);
    x:=x+n*25+40;
    Image1.canvas.lineto(x,y+n*25+40);
    y:=y+n*25+40;
    Image1.canvas.lineto(x-n*25-52,y);
    x:=x-n*25-52;
    Image1.canvas.lineto(x,y-n*25-52);
    y:=y-n*25-52;
    n:=n+1;
   end;
end;
 
end.

...
  Image1.Canvas.Pen.Width := StrToIntDef(Edit1.Text, 1);
  Image1.Canvas.MoveTo(x, y);
...