[Ildar-tsr]

Код:

procedure TForm1.FormCreate(Sender: TObject);
var e: OleVariant;
    n: integer;
begin
  e:= CreateOleObject('Excel.Application');
  e.Workbooks.Add;
  //вставляем в B4 текст
  e.Cells[4,2].Value:= 'Hello World!';
  e.Visible:= true;

  //поиск по книге (ставим курсор на ячейку A1)
  e.Cells[1,1].Select;
  e.Cells.Find(What:= 'Hello World!', After:= e.ActiveCell,
               LookIn:= -4123, LookAt:= 2,
               SearchOrder:= 1, SearchDirection:= 1,
               MatchCase:= false, SearchFormat:= false).Activate;
  //помещаем номер строки с заданным текстом в переменную
  n:= e.ActiveCell.Row;
  ShowMessage(inttostr(n));
end;