Нужно сделать поиск текста в Книгах Excel.
Делаю:
var
 ExcelApp: OLEVariant;
 ARange: Variant;
begin
   ExcelApp.Workbooks.Open(ADocument);
   ARange := ExcelApp.Workbooks[1].Sheets[1].Range['A1:A10'];
   ExcelApp.Workbooks[1].Sheets[1].Cells.Find('"123"', 'A1:A10', -4123, 2, 1, 1, 0, 0).Activate;
//    Result := ExcelApp.Workbooks[1].Sheets[1].Cells.Find(What:='123', After:=ARange, LookIn:=-4123, LookAt:= 2,
//        SearchOrder:=1, SearchDirection:=1, MatchCase:=0, SearchFormat:=0).Activate;
   ExcelApp.Workbooks.Close(wdDoNotSaveChanges);
end;
Выдает разные ошибки но чаще Не соответствие типов.
А если:
 Excel := CreateOleObject('Excel.Application');
 Excel.Workbooks.Open('g:\1.xls');
 Excel.Visible := false;
 for sh := 1 to Excel.Sheets.Count do
   for i := 1 to Excel.Sheets[sh].Cells.CurrentRegion.Rows.Count do
     for j := 1 to Excel.Sheets[sh].Cells.Columns.Count do
       StringGrid1.Cells[j-1, i-1] := Excel.Sheets[sh].Cells[i, j];
 Excel.Workbooks.Close;
 Excel.Quit;
то долго работа будет.