Падающий снег на снеговика

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    XPManifest1: TXPManifest;
    Timer1: TTimer;
    PaintBox1: TPaintBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  NumSnow: integer;
  SnowColor: array[1..1000] of TColor; 
  SnowSize: array[1..1000] of integer; /
  Snow: array[1..1000] of TPoint; //êîîðäèíàòû ñíåæèíîê
 
implementation
 
{$R *.dfm}
 
procedure drawsnegovik;
var xr1,yr1,xn1,yn1:integer;
    xr2,yr2,xn2,yn2:integer;
begin
  xr1:=365;
  yr1:=130;
  xn1:=240;
  yn1:=395;
  xr2:=205;
  yr2:=130;
  xn2:=325;
  yn2:=395;
  Form1.canvas.Pen.Color:=clPurple;
  Form1.canvas.Brush.Color:=clWhite;
  Form1.canvas.Ellipse(200,200,400,400);  
  Form1.canvas.Ellipse( 230,100,370,230);
  Form1.canvas.Ellipse( 275,50,340,110);
 
  Form1.canvas.Ellipse(xr1,yr1,xr1+30,yr1+30);
  Form1.canvas.Ellipse(xr2,yr2,xr2+30,yr2+30);
 
  Form1.canvas.Ellipse(xn1,yn1,xn1+40,yn1+30); 
  Form1.canvas.Ellipse(xn2,yn2,xn2+40,yn2+30);
 
  Form1.canvas.Pen.Color:=clBlack;     //ãëàçà
  Form1.canvas.Brush.Color:=clBlack;
  Form1.canvas.Ellipse(280,60,290,70);
  Form1.canvas.Ellipse(305,60,315,70);
 
  Form1.canvas.Pen.Color:=clRed;   //íîñ
  Form1.canvas.Brush.Color:=clRed;
  Form1.canvas.MoveTo(290,75);
  Form1.canvas.LineTo(250,77);
  Form1.canvas.MoveTo(290,83);
  Form1.canvas.LineTo(250, 77);
end;
 
procedure TForm1.Button1Click(Sender: TObject);  // âûçûâàåì ñíåãîâèêà ïî íàæàòèþ íà êíîïêó
begin
  drawsnegovik;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
begin
  NumSnow := 100; //   Êîëè÷åñòâî ñíåæèíîê, íå áîëüøå 1000
  // Íà÷àëüíûå êîîðäèíàòû ñíåæèíîê, èíèöèàëèçàöèÿ
for i:=1 to NumSnow  do
  begin
    Snow[i].X := Random(Form1.ClientWidth);
    Snow[i].Y := Random(Form1.ClientWidth);
    SnowColor[i] := RGB(255,255,200+Random(56));
    SnowSize[i]  := Random(3);
  end;
  Timer1.Enabled :=true; // Âêëþ÷åíèå òàéìåðà
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var i,j:integer;
begin
 for j:=1 to 10 do
   begin
     i := Random(NumSnow) + 1;
     // âûáèðàåì îäíó ëþáóþ ñíåæèíêó
     // ñòèðàåì åå öâåòîì ôîíà
     PaintBox1.Canvas.Brush.Color := clGradientActiveCaption;
     PaintBox1.Canvas.Pen.Color := clGradientActiveCaption;
     PaintBox1.Canvas.Rectangle(Snow[i].X-1, Snow[i].Y-1, Snow[i].X+2, Snow[i].Y+2);
     // çàäàåì åå íîâîå ïîëîæåíèå(âíèç â ñòîðîíó)
     Snow[i].X := Snow[i].X + Random(3) - 1;
     Snow[i].Y := Snow[i].Y + Random(3) + 1;
     // Åñëè äîñòèãíóò êîíåö ôîðìû, òî ïî íîâîé íà÷èíàåì
   if Snow[i].Y >= Form1.ClientHeight then
     begin
       Snow[i].Y := 0;
       Snow[i].X := Random(Form1.ClientWidth);
     end;
     // Ðèñóåì ñíåæèíêó
  PaintBox1.Canvas.Brush.Color := SnowColor[i];
  PaintBox1.Canvas.Pen.Color := SnowColor[i];
  PaintBox1.Canvas.Ellipse(Snow[i].X-1, Snow[i].Y-1,Snow[i].X+SnowSize[i], Snow[i].Y+SnowSize[i]);
   end;
end;
 
end.