procedure TForm1.Button1Click(Sender: TObject);
begin
  ExcelApplication1.Disconnect;
  ExcelApplication1.Connect;
  ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam, 0));
  ExcelApplication1.Visible[0] := True;
  ExcelApplication1.ActiveWindow.DisplayGridlines := False;
end;