Рисование на канве

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
   b,a,r,rm,x,y,xm,ym,c,m,s,rs,xs,ys,sss,n,n1,n2,n3,n4,k:integer;
   pi,am,d,dm,asec,ds:real;
   bm: TBitMap;
implementation
 
{$R *.dfm}
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
j:integer;
begin
  s:=s+1;
  bm.canvas.brush.Color:=clblue;
  bm.canvas.FillRect(bm.Canvas.ClipRect);  //затираем предыдущее солнышко синим цветом
  for j:=0 to 36 do
  begin
    bm.canvas.Pen.Color:=clyellow;
    s:=s+a;
    pi:=3.1415926535897932384626433832795;
    ds:=10*pi/300;
    asec:=(s-75)*ds;
    rs:=200;
    xs:=round(250+rs*cos(asec));
    ys:=round(250+rs*sin(asec));
    bm.Canvas.MoveTo(250,250);
    bm.Canvas.LineTo(xs,ys);
  end;
  bm.canvas.brush.Color:=clYellow;
  bm.canvas.Ellipse(200,200,300,300);
  Form1.Canvas.Draw(0, 0, bm); //переносим canvas bitmap на форму
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.DoubleBuffered:=True;
  a:=3; b:=6; r:=12; rm:=18; xm:=24; ym:=30; //n1:=36; n2:=42; n3:=48; n4:=54;
  bm := TBitMap.Create;
  bm.Width := Form1.ClientWidth;
  bm.Height := Form1.ClientHeight;
end;
end.