[Assistant]

Код:

var
  e_app, worksht: Variant;
begin
  e_app := CreateOleObject('Excel.Application');
  e_app.WorkBooks.Open('test.xls');
  worksht := e_app.WorkBooks[1].WorkSheets[1]; // выбираем первый лист

  ShowMessage(worksht.Cells[1,1].Value); // выведет значение ячейки A1

  e_app.Quit;
end;