Var
  WorkBook: IXLSWorkbook;
begin
  WorkBook := TXLSWorkBook.Create;
  Dataset2Excel1.Workbook := WorkBook;
end;