Анимация

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls;
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormActivate(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  x,y: byte;         
  dx: byte;            
implementation
{$R *.DFM}
 
procedure Ris;
begin 
     form1.Canvas.Pen.Color:=form1.Color;
     form1.Canvas.Ellipse(x,y,x+20,y+20);
     x:=x+dx;
  
     form1.Canvas.Pen.Color:=clBlack;
     form1.Canvas.Ellipse(x,y,x+20,y+20);
end;
 
 
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Ris;
end;
 
procedure TForm1.FormActivate(Sender: TObject);
begin
  x:=0;
  y:=10;
  dx:=5;
  timer1.Interval:=50; 
  form1.canvas.brush.color:=form1.color;
end;
end.

procedure TForm1.FormActivate(Sender: TObject);
procedure TForm1.Timer1Timer(Sender: TObject);

 x,y: byte;         
  dx: byte;

unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ExtCtrls, ComCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormActivate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
procedure spiral(canvas: TCanvas; x, y:integer; coilwidth,rad:real);
var
  Form1: TForm1;
implementation
 
{ TForm1 }
 
procedure TForm1.FormActivate(Sender: TObject);
begin
 spiral(Image1.Canvas,250,200,40,300);
end;
 
procedure spiral(canvas: TCanvas; x, y:integer; coilwidth,rad:real);
var i,Ad:integer;
Ar,x1,x2,y1,y2:real;
begin
  Canvas.Brush.Color:=clWhite;
  Canvas.Pen.Width:=3;
  Canvas.Pen.Color:= clred;
  Canvas.FillRect(0,0,648,538);
  Ad:=0;
   x1:=rad+x;
   y1:=y;
    for i:=1 to Round(rad/coilwidth*360) do
    begin
      inc(Ad);
      x2:=rad*cos(Ad * pi / 180)+x;
      y2:=rad*sin(Ad * pi / 180)+y;
      rad:=Ad*(coilwidth/360);
      Canvas.Line(trunc(x1),trunc(y1),trunc(x2),trunc(y2));
      x1:=x2;
      y1:=y2;
    end;
    end;
 
initialization
  {$I unit1.lrs}
 
end.