Чтение данных из Excel-файла.

var
 st: string[10];
 dict: Text;
begin
 Assign(dict,'Лист Microsoft Excel.xls');
 Reset(dict); // открываем
 readln(dict,st);
 write(st);
 Close(dict);
end.

program SimpleExcel;
 
#apptype windows
#reference 'System.Windows.Forms.dll'
#reference 'Microsoft.Office.Interop.Excel.dll'
 
uses 
  System,
  System.Windows.Forms,
  Microsoft.Office.Interop;
 
var
  app: Excel.Application;
  ws: Excel.Worksheet;
begin
  app:=new Excel.ApplicationClass();
  app.Visible:=false;
  app.Workbooks.Open('D:\Библиотека\Лингвистика\Программы и словари\Excel.xls', System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing, System.Type.Missing);
  ws:=app.Workbooks[1].Worksheets[1] as Excel.Worksheet;
  //ws.Cells[1, 1]:='test';
  MessageBox.Show((ws.Cells[1, 1] as Excel.Range).Value2.ToString()); // Необходимо задать значение, иначе ошибка
  app.Quit();
end.