Поиск в Excel-e

[Константин!]

в ф-и
OpenBookXLS(FileName : Text[250];SheetName : Text[250])
IF FileName = '' THEN
ERROR(Text001);


IF NOT EXISTS(FileName) THEN
ERROR(Text003,FileName);

IF NOT CREATE(XlApp,TRUE) THEN
ERROR(Text000);

XlApp.Workbooks._Open(FileName);
XlWrkBk := XlApp.ActiveWorkbook;
XlWrkshts := XlWrkBk.Worksheets.Item(1);
XlWrkSht := XlWrkBk.Worksheets.Item(XlWrkshts.Name)