求助：关于fillrgn的一个问题

我用如下方法填充一个椭圆，可是填充不了，为什么？
Rgn := CreateEllipticRgn(x1, x2, x3, x4);
Image1.Canvas.Brush.Style := bsSolid;
Image1.Canvas.Brush.Color := clRed;
FillRgn(Image1.Canvas.Handle, Rgn, Image.Canvas.Brush.Handle);
用以上代码填充不了椭圆区域，为什么？