这是以前的版本过低怎么改啊！ 

LocalFileName:='';
  with TSaveDialog.Create(Nil) do
  begin
    DefaultExt:='.XLS';
    FileName:='收费接口文件'+FormatDateTime('yyyymmdd', Now())+'.XLS';
    Filter:='EXCEL 文件|*.XLS';
    InitialDir:=ExtractFileDir(Application.ExeName);
    Title:='保存收费接口文件';
    if Execute() then
    begin
      LocalFileName:=FileName;
    end;
    Free;