1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

type TSnowfall=class(TPaintbox)
private
snow:array of TPoint;
block:array of Integer;
lengthx,lengthy,grav:integer;
function OP(newp:TPoint):boolean;
procedure reinit(index:integer);
public
Constructor Create(svalue:integer;fieldx,fieldy,g:integer;AOwner: TComponent);
procedure move;
Destructor Destroy;
procedure start;
published
protected
end;

Constructor Tsnowfall.Create(svalue:integer;fieldx,fieldy,g:integer;AOwner: TComponent);
var newp:TPoint;
    i:integer;
begin
inherited create(AOwner);
grav:=g;
setlength(snow,svalue);
setlength(block,fieldx);
for i:=0 to high(block) do block[i]:=lengthy;
width:=fieldx;
height:=fieldy;
lengthx:=fieldx;
lengthy:=fieldy;
for i:=0 to high(snow) do reinit(i);
end;					

1:
2:
3:

snow:=TSnowfall.Create(10,100,100,1,form1);
snow.Name:='test';
snow.start;					

1:
2:
3:
4:

snow:=TSnowfall.Create(10,100,100,1,form1);
snow.Parent := Form1;
snow.Name:='test';
snow.start;