Excel закрывается не сразу

//Функция проверки необходимых полей в файле 
function check_D(input_file_path:string):integer;
var
i,j,handbook_correct:integer;
begin
handbook_correct:=0; //По умолчанию справочник не корректен
CoInitialize(Nil);//Вызов для работы с excel файлом
//ПРОВЕРКА И ПОИСК НЕОБХОДИМЫХ НАМ ПОЛЕЙ
Ap:=CreateOleObject('Excel.Application'); //Создаем объект
Ap.Workbooks.Open(input_file_path,0,True); //Открываем файл для чтения
Ap.DisplayAlerts:=False; //Отключаем любые сообщения excel
 
//Узнаем количество заполненных строк и столбцов
excel_rows:=Ap.ActiveSheet.UsedRange.Rows.Count;
excel_columns:=Ap.ActiveSheet.UsedRange.Columns.Count;
 
for i:=1 to 20 do
begin
for j:=1 to excel_columns do
begin
current_string:=Ap.Cells[i,j];
//Поле
if ((current_string='Признак') and (column_6_found=0)) then begin column_6_found:=1; column_6:=j; data_begin_row:=i+2; end;
end;
end;
Ap.Application.Quit;  //Закрываем excel файл
 
//Проверяем все ли поля найдены - если нет то выводим сообщение и завершаем программу
if (column_6_found=1) then handbook_correct:=1;
Result:=handbook_correct;
//КОНЕЦ ПРОВЕРКИ И ПОИСКА НЕОБХОДИМЫХ НАМ ПОЛЕЙ
end;
 
 
 
procedure TMyThread.Execute;
 
begin
//Код в потоке
FreeOnTerminate:=True;//Уничтожаем экземпляры TMyThread
CoInitialize(Nil);//Вызов для работы с excel файлом
 
 
 
//Проверка массива DRMP_TABLE
if (check_D('test.xls')<>1) then
begin
output_message:='Ошибка. В файле - не были найдены необходимые поля.'; Synchronize(Show_Message);
end;
 
//ВОТ ТУТ EXCEL ФАЙЛ ДОЛЖЕН БЫТЬ ЗАКРЫТ 
//Но он будет закрыт только после окончания работы программы (конец кода), через 10 секунд "простоя" программы (нужно ждать).
 
//Далее остальной код

Ap.Disconnect;
Ap.Free;
Ap.Close(SaveChanges:=false);
Ap.quit;
Ap := Unassigned;

//Открываем excel файл
Ap:=CreateOleObject('Excel.Application'); //Создаем объект
Ap.Workbooks.Open(input_file_path,0,True); //Открываем файл для чтения
Ap.DisplayAlerts:=False; //Отключаем любые сообщения excel
 
//тут работаем
 
Ap.Application.Quit;   //Закрываем excel файл - а процесс висит

...
var E: Variant;
...
E:=CreateOLEObject('Excel.Application');
//При создании еще можно такую конструкция использовать, но при закрытии E.Application.Quit он закроет Excel'ку, которую использовал в своих корыстных целях
{
try E:=GetActiveOLEObject('Excel.Application');
except E:=CreateOLEObject('Excel.Application') end;
}
try
  ...
  E.ActiveWorkBook.Close;
  E.Application.Quit;
except
  ShowMessage('Error');
  E.ActiveWorkBook.Close;
  E.Application.Quit;
end;
...