cxgrid를 엑셀로 출력하기-델파이

procedure TfrmInputBujo.Button1Click(Sender: TObject);
begin
 SaveDialog1.FileName := '엑셀.xls';
 if SaveDialog1.Execute then begin
    ExportGridToExcel(SaveDialog1.FileName, cxgrid1, true, true, false, 'xls');
    Application.ProcessMessages;
    if MessageDlg(SaveDialog1.FileName + ' 파일을 실행하시겠습니까?',  mtWarning, [mbYes, mbNo], 0) = mrYes then
       ShellExecute(self.Handle, PChar('OPEN'), PChar(SaveDialog1.FileName), nil, nil, SW_SHOWMAXIMIZED);
    Application.ProcessMessages;
    //필요할까봐 작성해 둔다
    //바탕화면에 저장하면 무리없이 돌아간다
 end;
end;