disculpen este codigo, ya no lo utilizo, debido a que muchas veces no me exporta todos los datos . si abren alguna hoja de excel
actualmente exporto con el componente : DataToXLS1
conecto con el query y lo ejecuto.
Código Delphi
[-]
DataToXLS1.SaveToFile(ChangeFileExt( 'D:\Tmp\DatosContraloria', '.csv' ) );
Lexportar.Caption:='Archivo Exportado en: D:\Tmp\DatosContraloria.csv';
ShellExecute(Exportar.Handle,nil,pchar('D:\Tmp\DatosContraloria.csv'),'','',SW_SHOWNORMAL);
sele puede poner formato a las celdas-?