delphi 读取 Excel

procedure TForm1.readExcel(Sender: TObject);
var
  ExcelApp: Variant;
  i: Integer;
begin
  lst1.Items.Insert(0, memo_huohao.Lines.Count.ToString() + ' 条原有数据 ');
  if MessageBox(Handle, '从Excel表格中重新加载商品档案数据，同时也会清除原来数据。' + #13#10 +
    '确定重新加载，选择 确定按钮继续！', '重新加载商品档案', MB_OKCANCEL + MB_ICONQUESTION + MB_TOPMOST)
    = IDCANCEL then
  begin
    Exit
  end;

  dlgOpen1.execute(0);
  if dlgOpen1.Files.Count > 0 then
  begin

    adoconn_execle.ConnectionString :=
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + dlgOpen1.Files[0] + ';'
      + 'Extended Properties=excel 8.0;Persist Security Info=False';
    adotbl_excle.TableName := '[Sheet1$]';

    adotbl_excle.Active := true;
    if adotbl_excle.RecordCount = 0 then
    begin
      ShowMessage('没有数据，重新读取失败');
      Exit
    end;
    if adotbl_excle.RecordCount < memo_huohao.Lines.Count then
    begin