Cxgrid exportando para excel - SaveDialog [DELPHI 7]

[Ellem Cristina]

Olá, sou nova na área de programação, precisa de ajuda.

Estou salvando os dados de um CxGrid usando o SaveDialog para exportar em excel

o problema é que o savedialog continua aberto após o arquivo aberto e já salvo, ele não fecha.

 

segue o código Delphi:

 

begin      saveDialog1 := TSaveDialog.Create(self);   saveDialog1.Title := 'Salve o Relatório';   saveDialog1.InitialDir := GetCurrentDir;   saveDialog1.Filter := 'Excel (*.xls)';   saveDialog1.DefaultExt := 'xls';   saveDialog1.FilterIndex := 1;  begin   SaveDialog1.Execute; if SaveDialog1.FileName <> '' then   begin    ExportGrid4ToExcel(SaveDialog1.FileName,cxGrid1,false);   ShellExecute(Handle,'open', pchar(SaveDialog1.FileName),nil, nil, SW_SHOWMAXIMIZED); end; end; end;

 

-Se puderem me ajudar!!!