请大家帮忙添加..........(15分)

以下这段源代码是从数据库转换为Excel文件的，能正常的运行，但是怎样才能自动的把它
保存起来？并且能退出Excel?请大家帮我加上几条语句来实现它。谢谢！！！

procedure TForm1.Button1Click(Sender: TObject);
var
vExcel:OleVariant;
i,j:integer;
begin
vExcel:=CreateOleObject('Excel.application');
if checkbox1.Checked then
vExcel.visible:=true
else
vExcel.visible:=false;
vExcel.workbooks.add;
Table1.First ;
For i:=0 to Table1.FieldCount -1 do
vExcel.Cells.Item(1,i+1):=Table1.Fields.Displaylabel;
j:=2;
While not Table1.Eof do
begin
For i:=0 to Table1.FieldCount -1 do
begin
vExcel.Cells.Item(j,i+1):=Table1.Fields.AsString;
end;
j:=j+1;
Table1.Next ;
end;
end;
end.

vExcel.workbooks.Save(True,"yourfilename");

退出:
vExcel.Quit;

对不起，请问在什么位置加入这两句？请指明位置。
还有，好象SAVE方法是用于Workbook而不是用于workbooks的。请您试一下。谢谢！！！

1：那两句话应添加在到数第二和第三个end之间；
2：save方法应该是既可用于workbook,也可用于workbooks;

多人接受答案了。