关于释放的问题

本人把EXCEL 数据导入 SQL SERVER
程序执行状况良好。-----
由于后来想把文件夹的名称给修改一下，但是却不能修改本人看了一下程序，EXCEL也释放了，就是不知道什么地方没有释放
代码如下：
procedure TForm1.Button1Click(Sender: TObject);
   var i,k:integer;
   ExcelID: Variant;
begin
   if opendialog1.Execute then begin
      ExcelID:=CreateOleObject('Excel.Application');
      ExcelID.workbooks.open(opendialog1.FileName);
      ExcelID.WorkSheets[1].Activate;
      i:=ExcelID.worksheets[1].UsedRange.Rows.Count;
      //j:=ExcelID.worksheets[1].UsedRange.columns.Count;
      for k:=1 to i do begin
           adoquery1.Append;
           adoquery1.Fields[0].AsString:=ExcelID.Cells[k,1].Value;
           adoquery1.Fields[1].AsString:=ExcelID.Cells[k,3].Value;
           adoquery1.Fields[2].AsString:=ExcelID.Cells[k,4].Value;
           adoquery1.Post;
      end;
      ExcelID.quit;
   end;
end;