导出文件到优盘后，如何释放内存(100分)

procedure Tfselectresult.BitBtn1Click(Sender: TObject);
var
ExpClass:TDBGridEhExportClass;
Ext:String;
begin
//SaveDialog1.FileName := 'file1';
SaveDialog1.Filter := 'EXCEL工作表(*.xls)|*.xls';
if SaveDialog1.Execute then
begin
case SaveDialog1.FilterIndex of
//1: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;
//2: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end;
1: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end;
else
ExpClass := nil; Ext := '';
end;
end;
if ExpClass <> nil then
begin
if UpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3)) <> UpperCase(Ext) then
SaveDialog1.FileName := SaveDialog1.FileName + '.' + Ext;
SaveDBGridEhToExportFile(ExpClass,DBGridEh1,SaveDialog1.FileName,true);
//其中false为局部数据
end;
end;
导出文件后
如果是存在优盘
那么安全拔出就会提示无法拔出
只有把整个程序全部关闭，才能安全拔出优盘
如何让直接导在优盘上就可以安全拔出而不用关闭整个程序

关注，帮你顶一下。顺便发个广告：）
推荐个人小站－－书椟办公网（ www.shodoo.cn ），是个提供电脑网络及软件应用技巧的网站，资料比较全，适合泡电脑的朋友们，欢迎大家访问。

检查一下代码，应该是没有 closefile

SaveDBGridEhToExportFile(ExpClass,DBGridEh1,SaveDialog1.FileName,true);

你得研究一下这里面的代码...应该是里面有问题...