برای Jet Engine می تونید مستقیما از کدی شبیه به این استفاده کنید. اما نمیدونم توی SQLServer هم جواب میده یا نه!
ADOConnection1.Execute('SELECT * INTO ExcelWorkSheet IN "C:\ExcelTest.xls" "Excel 8.0;" FROM YourTableName');
البته بجای ExcelWorkSheet یه اسم دلخواه خودتون برای WorkSheet جدیدی که ایجاد میشه بزارید.
بجای YourTableName از نام Table ای که در بانک اطلاعاتی وجود داره و میخواید تبدیلش کنید به فرمت xls استفاده کنید.
بجای C:\ExcelWorkSheet.xls هم نامی که میخواید به فایل Excel خودتون بدید رو بزارید.