[[coso]]

hola, puedes exportarlo directamente a formato .xls

Código Delphi [-]
     q.Active := false;
     q.SQL.Text := 'select * into ["Excel 8.0;Database=c:\test.xls"].[hoja1] from tabla'; 
     q.ExecSQL;

y la ruta sera relativa (aunque no estoy seguro) a tu aplicación.