DataToXLS1 lo conectas con el dataset q tiene el query
y lo abres asi
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);