[ingabraham]

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);