Var
  WorkBook: IXLSWorkbook;
begin
  WorkBook := TXLSWorkBook.Create;
  WorkBook.Sheets.Add;
  Dataset2Excel1.Worksheet := WorkBook.Sheets.Add;
end;