сохранение данных в xls

[Alar]

перенесено со старого форума. сообщение от mne.

задача следующая. Необходимо из dbgrid сохранить данные в файл xls
делаю так

fileName:='c:\1.xls'; 
Exl := CreateOleObject('Excel.Application'); 
Exl.Application.EnableEvents := false; 
WorkBook := exl.Application.WorkBooks.Add; 
Sheet := WorkBook.WorkSheets[1]; 
str:=form1.DBGrid1.DataSource.DataSet.RecordCount; 
sto:=form1.DBGrid1.Columns.Count; 
for i:=1 to str do 
for k:=0 to sto-1 do 
begin 
form1.DBGrid1.DataSource.DataSet.RecNo:=i; 
WorkBook.WorkSheets[1].Cells[i, k+1]:=DBGrid1.Columns[k].Field.value; 
end; 
exl.Application.ActiveWorkBook.Saveas(fileName); 
finally 
Sheet := Unassigned; 
WorkBook := Unassigned; 
Exl.Application.Visible := true; 
Exl := Unassigned; 
end; 
end;

сначала все работало а потом стала выдавать ошибку
"Конфигурация операционной системы не расчитана на запуск этого приложения"
в чем проблема, помогите

перенесено со старого форума. сообщение от mne.

Нашел проблему, после исполнения кода не убивается процесс exel постоянно висит в памяти, как его завершить после выполнения кода.

перенесено со старого форума. сообщение от mne.

str,sto,i,k: integer; 
exl: olevariant; 
WorkBook, Sheet: Variant; 
FileName,s: String; 
f: textfile; 
begin 
try 
fileName:='c:\1.xls'; 
Exl := CreateOleObject('Excel.Application'); 

WorkBook := exl.Application.WorkBooks.Add; 
Sheet := WorkBook.WorkSheets[1]; 

str:=form1.DBGrid1.DataSource.DataSet.RecordCount; 
sto:=form1.DBGrid1.Columns.Count; 
for i:=1 to str do 
for k:=0 to sto-1 do 
begin 
form1.DBGrid1.DataSource.DataSet.RecNo:=i; 
WorkBook.WorkSheets[1].Cells[i, k+1]:=DBGrid1.Columns[k].Field.value; 

end; 

exl.Application.ActiveWorkBook.Saveas(fileName); 
finally 

exl.application.quit; 

end; 
end;