请求高手帮忙，回答 提示Method 'Saved'not supported by automation odject'错误的问题. (50分)

procedure TForm1.Button1Click(Sender: TObject);
var ExcelApp,Excel_Sheet: OleVariant;
begin
//首先创建 Excel 对象，使用ComObj
ExcelApp:=CreateOleObject('Excel.Application');

//显示当前窗口 ExcelApp.Visible := True;
//更改 Excel 标题栏 ExcelApp.Caption := '应用程序调用 Microsoft Excel';
//添加新工作簿 ExcelApp.WorkBooks.add;

//打开已存在的工作簿：
ExcelApp.workbooks.open('e:/book1.xls');
//设置第1个工作表为活动工作表
ExcelApp.WorkSheets[1].Activate;
//给单元格赋值
ExcelApp.Cells[5,1].Value :='合计';
// 删除一行
ExcelApp.ActiveSheet.Rows[2].Delete;
// 删除一列
ExcelApp.ActiveSheet.Columns[2].Delete;

//工作表保存
ExcelApp.ActiveSheet.Saved;

//工作表另存为
ExcelApp.SaveAs( 'e:/Demo1.xls' );

{ //放弃存盘
ExcelApp.ActiveWorkBook.Saved := True;
}

//关闭工作簿
ExcelApp.WorkBooks.Close;
//退出 Excel
ExcelApp.Quit;
//

end;

end.

当执行到 //工作表保存
ExcelApp.ActiveSheet.Saved;
时，提示 Method 'Saved'not supported by automation odject'错误，请高手帮忙，给我一个解决方法？