画图的双缓冲问题！

[cxfirefox]

我简单的作了一个程序，发现图像画不出来，不知道我的错误在那里指点一下吧？

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;

[firetoucher]

晕，没有初始化tbitmap的大小，比如加上：
Height :=100;
Width :=100;

[cxfirefox]

to firetoucher:谢谢，那还有就是对于组合图形，比如说两个圆相交，pen.mode：=pmNotXor，
我在MouseMove的时候把这两个圆重画，他们的交点会在原地留下痕迹，比方说我用蓝色画的圆，那么在原地就会有两个蓝色的点，有没有什么办法可以消除呢？