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