퀀텀 그리드의 내용을 엑셀로 내보내기

procedure TForm1.Btn_ExcelClick(Sender: TObject);
begin
    ExportGridToExcel( 'C:\Test.xls', GRD_Simple, True, True, False );
    if FileExists( 'C:\Test.xls' )  then
        ShellExecute(Application.Handle, 'open', 'C:\Test.xls', nil, nil, SW_ShowNormal)
end;