Разработать программу, демонстрирующую графические возможности Delphi.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    procedure PaintBox1Paint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  C, P: TPoint;
  i, R, S: Integer;
  d: Double;
begin
 PaintBox1.Canvas.Pen.Color := clRed;
 C := Point(PaintBox1.Width shr 1, PaintBox1.Height shr 1);
 R := 0; // Начальный радиус спирали
 S := 90; // Количество кружков на всю длину спирали
 d := 8*Pi/S; //Шаг спирали, в данном случае накручивается 4 оборота
 PaintBox1.Canvas.MoveTo(C.X, C.Y);
 for i := 0 to S-1
 do begin
    P := Point(Round(R*Cos(d*i))+C.X, Round(R*Sin(d*i))+C.Y);
    PaintBox1.Canvas.Ellipse(P.X,P.Y,P.X+5+Round(i/s*10),P.Y+5+Round(i/s*10));
    Inc(R, 2);
    end;
end;
 
end.