网络收藏

我简单的作了一个程序，发现图像画不出来，不知道我的错误在那里指点一下吧？  
   
  procedure   tform1.button1click(sender:   tobject);  
  begin  
  with   tbitmap.create   do   try  
  canvas.pen.color:=clblue;  
  canvas.brush.style:=bsclear;  
  canvas.ellipse(rect(100,200,300,400));  
  canvas.ellipse(rect(130,230,330,430));  
  bitblt(form1.canvas.handle,0,0,width,height,canvas.handle,0,0,srccopy);  
  finally   free;  
  end;  
  end;  
 

推荐阅读