有谁做过图象的小波算法？(50分)

var
  Form1: TForm1;
  shape:Array of TShape;
  j:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
shape:Array of TShape;
i:integer;
begin
   j:=strtoint(edit1.text);
   setlength(shape,j);
   for i:=0 to j-1 do
    begin
     shape:=Tshape.Create(form1);
     with shape do
     begin
       parent:=form1;
       top:=150;
       left:=left+i*50;
       width:=8;
       height:=8;
       brush.Color:=clred;
       shape:=stcircle;
     end;
   end;