Обмен данными между Excel и приложением с применением dde

procedure TForm1.Button1Click(Sender: TObject);
var
  exApp, exBook, exSheet : Variant;
  Row, Col : Integer;
  S : String;
begin
  //Координаты ячейки на листе Excel.
  //Строка.
  Row := StrToInt( Edit1.Text );
  //Столбец.
  Col := StrToInt( Edit2.Text );
  //Текст, который надо записать в ячейку.
  S := Edit3.Text;
 
  //Попытка запустить и подключиться к Excel.
  exApp := CreateOleObject('Excel.Application');
  //Делаем видимым окно Excel.
  exApp.Visible := True;
  //Создаём рабочую книгу.
  exBook := exApp.Workbooks.Add;
  //Подключаемся к первому листу раб. книги.
  exSheet := exBook.Worksheets[1];
  //Записываем заданный пользователем текст в ячейку
  //с заданными координатами.
  exSheet.Cells[Row, Col].Value := S;
end;

procedure TForm1.Button2Click(Sender: TObject);
const
  Fn = 'Книга1.xls';
var
  exApp, exBook, exSheet : Variant;
  Row, Col : Integer;
  S, FileName : String;
begin
  //Координаты ячейки на листе Excel.
  //Строка.
  Row := StrToInt( Edit4.Text );
  //Столбец.
  Col := StrToInt( Edit5.Text );
  
  //Попытка запустить и подключиться к Excel.
  exApp := CreateOleObject('Excel.Application');
  //Делаем видимым окно Excel.
  exApp.Visible := True;
  //Получаем полное имя файла книги, которая лежит в той же папке, где
  //расположен исполняемый файл нашей программы.
  FileName := ExtractFilePath(ParamStr(0)) + Fn;
  //Открываем рабочую книгу.
  exBook := exApp.Workbooks.Open(FileName);
  //Подключаемся к первому листу раб. книги.
  exSheet := exBook.Worksheets[1];
  //Читаем текст из ячейки.
  S := exSheet.Cells[Row, Col].Text;
  //Показываем прочитанный текст.
  ShowMessage('Прочитан текст: ' + S);
end;
 
end.