Delphi7 导出Dbgrid数据到Excel 默认路径设置为我的文档

下面代码是自己写的，今天有个同学打电话问我
在Delphi7 导出Dbgrid数据到Excel 正好我最近写过 在Delphi7 导出Dbgrid数据到Excel 正好