Поиск в Excel-e

[romeo]

А код функции рабочий?
У нас делается так после открытия приложения
xlWorkBook := xlApplication.Workbooks.Add;
xlWorkSheet := xlWorkBook.Worksheets.Add;