Процес Excel висит постоянно

[Dozent]

Здраствуйте... Я понимаю что таких тем куча, извините времени в обрез!
Есть код выгрузки данных в Ексель

uses ...comobj...


var
  Form1: TForm1;
  ff:string;
  wss: WideString;
  ExcelApp, Workbook, Range, Cell1, Cell2, VData : Variant;




procedure TForm1.Button6Click(Sender: TObject);
  var Excel:variant;
begin
ExcelApp:= CreateOleObject('Excel.Application'); 
ExcelApp.Application.EnableEvents:= false; 
ExcelApp.Visible:=False; 
Workbook := ExcelApp.WorkBooks.Add; 
Table1.First;
For i:=1 to Table1.RecordCount do
  begin
   For j:=1 to Table1.FieldCount do
    begin
        If i=1 then
           begin
            VData:=DBGrid1.Columns[j-1].Title.Caption;
            WorkBook.WorkSheets[1].Cells[i, j].Value:=VData;
           end;
        VData:=DBGrid1.Fields[j-1].Text;
        WorkBook.WorkSheets[1].Cells[i+1, j].Value:=VData;
         WorkBook.WorkSheets[1].Columns.Item[j].Autofit;
     end;
  Table1.Next;
  end;
ff:='C:\CAGemer\'+DateTimeToStr(Date)+'.xls';
WorkBook.SaveAs(ff); 
ExcelApp.Quit; 
ShellExecute(Handle,0,'taskkill /IM excel* /T /F',nil,nil,SW_SHOW);// добавил эту команду в надежде...
Excel := CreateOleObject('Excel.Application');
Excel.Workbooks.Open(ff);
Excel.Visible:=True;
end;

Проблема в том что весит процес Excel.exe и привыключение компа постоянно просит выбрать действия с "книга1". Отрубать процес не поулчилось...

Подскажите ешё как можно сделать. ЗАранее благодарю

[pesi]

ExcelApp.activeWorkBook.close;
ExcelApp.Quit;
ExcelApp:=unassigned;

[Dozent]

Благодарю! То что нужно, помогло!!!