Exportar grade do CxGrid

Na USES do From deve ser declarada " cxGridExportLink, "
 Neste caso foi usado o " TSaveDialog " e o código abaixo no evento " onclick de um botão.
Este procedimento irá exportar o que está visivel no Grid.


procedure Tforn.btn_ExportarClick(Sender: TObject);
VAR
    FileExt           : String;
begin

   //salva o arquivo com os dados do CXGrid
   SaveDialog.Filter := 'Excel (*.xls) |*.xls|BrOffice (*.ods) |*.ods|XML (*.xml) |*.xml|Arquivo Texto (*.txt) |*.txt|Página Web (*.html)|*.html';
   SaveDialog.Title := 'Exportar Dados';
   SaveDialog.DefaultExt:= 'xls';
   if SaveDialog.Execute then
   begin
     FileExt := LowerCase(ExtractFileExt(SaveDialog.FileName));
     if FileExt = '.xls' then
           ExportGridToExcel(SaveDialog.FileName,cxGrid, False)
     else if FileExt = '.xml' then
           ExportGridToXML(SaveDialog.FileName,cxGrid, False)
     else if FileExt = '.txt' then
           ExportGridToText(SaveDialog.FileName,cxGrid, False)
     else if FileExt = '.html' then
           ExportGridToHTML(SaveDialog.FileName,cxGrid, False)
     else if FileExt = '.ods' then
           ExportGridToExcel(SaveDialog.FileName,cxGrid, False);
     ShellExecute(Handle, 'open', pchar(SaveDialog.FileName), nil, nil, SW_SHOW);
   end;

end;