在程序里创建一个execel表,为什么默认是在我的文档里啊?有什么方法可以将其放在当前程序的目录里?

在程序里创建一个execel表,为什么默认是在我的文档里啊?有什么方法可以将其放在当前程序的目录里?
程序代码如下:
procedure TForm1.Button1Click(Sender: TObject); 　　var 　　eclApp,WorkBook:Variant; 　　//声明为OLE Automation 对象 　　xlsFileName:string;begin 　　xlsFileName:=‘my.xls‘; 　　try 　　//创建OLE对象Excel Application与 WorkBook 　　eclApp:=CreateOleObject(‘Excel.Application‘); 　　WorkBook:=CreateOleobject(‘Excel.Sheet‘); 　　except 　　ShowMessage(‘您的机器里未安装Microsoft Excel。‘); 　　Exit; 　　end; 　　try 　　ShowMessage(‘下面演示:新建一个XLS文件,并写入数据,最后关闭它。‘); 　　workBook:=eclApp.workBooks.Add; 　　eclApp.Cells(1 , 1):=‘字符型‘; 　　WorkBook.saveas(xlsFileName); 　　WorkBook.close; 
为什么得到的my.xls在我的文档里面啊?怎么样可以使my.xls在当前程序的目录下呢?