在图片上画一个圈(50分)

我想在图片上画一个小圆圈，标出一个位置，用如下代码：
var
Bmp:TBitmap;
Bmp:=TBitmap.Create;
Bmp.LoadFromFile(Filename);
Bmp.Canvas.Ellispe(x1,y1,x2,y2);//运行出错了
怎么这样不行呢？是不是还需要初始化一些参数呢？

我用下面代码试了,好象没问题.
procedure TForm1.Button1Click(Sender: TObject);
var
Bmp:TBitmap;
begin
Bmp:=TBitmap.Create;
Bmp.LoadFromFile('c:/a.bmp');
Bmp.Canvas.Ellipse(10,10,100,100);//运行出错了
Image1.Picture.Bitmap:=Bmp
end;

但是就是出问题了
我是在做一个处理图片的Asp组件
运行Asp脚本的时候出错了
系统提示出错行就是Ellispe函数这一行

你可以看看我的Asp组件的函数
type
TTChartImage = class(TASPObject, ITChartImage)
protected
ChartBmp:TBitmap;
procedure OnEndPage; safecall;
procedure OnStartPage(const AScriptingContext: IUnknown); safecall;
procedure Ellispe(x1, y1, x2, y2: SYSINT); safecall;
procedure LoadImage(Fname: OleVariant); safecall;
procedure SaveImage(Fname: OleVariant); safecall;
end;
procedure TTChartImage.OnEndPage;
begin
inherited OnEndPage;
end;
procedure TTChartImage.OnStartPage(const AScriptingContext: IUnknown);
begin
inherited OnStartPage(AScriptingContext);
end;
procedure TTChartImage.Ellispe(x1, y1, x2, y2: SYSINT);
begin
ChartBmp.Canvas.Pen.Color:=clWhite;
ChartBmp.Canvas.Ellipse(x1,y1,x2,y2);
end;
procedure TTChartImage.LoadImage(Fname: OleVariant);
begin
ChartBmp:=TBitmap.Create;
ChartBmp.LoadFromFile(Fname);
end;
procedure TTChartImage.SaveImage(Fname: OleVariant);
begin
ChartBmp.SaveToFile(Fname);
ChartBmp.Free;
end;
请问一下这个有什么问题么？
谢谢。
一不小心，问题就发了两遍了，嘿嘿

已经搞定了
嘿嘿