Save As Excel File Within Delphi

After my query is processed, the results are displayed in a database
grid.  I would like to save the results as an Excel file. How can I do
this?

Thanks