fastreport 4.9 导出 报错 请高手指点

SaveDialog1.DefaultExt := '*.csv';
  SaveDialog1.Filter := 'Excel格式|(*.csv)';
  if SaveDialog1.Execute then
  begin
    if FileExists(SaveDialog1.FileName) then
    begin
      if MessageBox(Handle, Pchar(SaveDialog1.FileName + '文件已经存在，是否覆盖它？'), PChar(Application.Title), MB_YESNO + MB_ICONQUESTION) <> 6 then Exit;
      if not DeleteFile(SaveDialog1.FileName) then
        raise Exception.CreateFmt('%s文件可能被其他用使用，无法覆盖。', [SaveDialog1.FileName]);
    end;
       frCSVExport1.FileName :=SaveDialog1.FileName;
       frCSVExport1.ShowDialog :=False ;
       frReport1.Export(frCSVExport1);
       frCSVExport1.ShowDialog :=true ;