我的图形为什么没有出来啊？？

我是在formshow里编写的一个让图片由中间向四周显示的程序.但是不行。没有显示的。这些放在buttonclick事件里就是可以应用的.为什么啊.
我的代码如下：
procedure TForm10.Label2Click(Sender: TObject);
var
 hdc1,hdc2:hdc;
 w,h,i,j:integer;begin
  w:=150;
  h:=150;
  form10.Repaint;
  //Image1.Visible:=true;
  paintbox1.Refresh();
  hdc2:=paintbox1.Canvas.Handle;
  hdc1:=image1.Canvas.Handle;
  j:=w div 2;
  i:=h div 2;
  while (i>0) do
   begin
    bitblt(hdc2,i,j,w-2*i,h-2*j,hdc1,i,j,srccopy);
    i:=i-2;
    j:=j-2*h div w;
    sleep(20);
   end;end;