Delphi&Excel

Народ помогите, я работаю в Delphi с Excel, приходится обрабатывать
одной процедурой большое количество файлов, когда колличество фалов не совсем большое программа работает нормально,
но прибольшом колличестве все начинает дико тормозить, хотя я каждый используемый файл Excel закрываю
и только после этого открываю новый,
После работы программы в списке задач то бывает остаются приложения Excel то нет,
а когда много фалов обрабатываешь бывает совсем зависает!

вот краткая вырезка из кода

var xla : _Application;
xlw : _Workbook;
xls : _WorkSheet;
Begin
...
try
for i:=1 to n do Begin
...
xla := CoExcelApplication.Create;
xlw := xla.Workbooks.Add(filename+'.xls',LCID);
xlw.Sheets.Item[4].QueryInterface(IID__Worksheet,xls);
xls.Activate(1);
...

finally
xla.quit;
end;
...
end;

end;

я пробовал и следующим образом
var xla1 : Variant;

Begin
...
for i:=1 to n do Begin
try
xla1 := CoExcelApplication.Create;//ИНдекс
xla1.Workbooks.Add;
...
finally
xla1.quit;
end;
end;//for

end;