请教这个功能如何写啊

Question

我的程序做了一个备份功能，但是每一次备份都会复盖了以上的文件，所以我想加一个OPENDIGAN控件，让用户让入文件名再保存，如果相同就复盖，不同就保存这个文件名。请教这个功能如何写啊？？？ 
--

Answer 1

控件OpenDialog，在 Dialog 页面上
假设保存为  SaveFile begin
 if OpenDialog1.Exe then
   SaveFile(OpenDialog1.FileName);
end;

Answer 2

上面是错误的, 刚才看错了控件SaveDialog，在 Dialog 页面上
假设保存为  SaveFile begin
 if SaveDialog1.Execute then
   SaveFile(SaveDialog1.FileName);
end;

Answer 3

谢谢，但是我写成这样，为何出现了错误呢,请教如何修改啊？
procedure Tfrmmain.N26Click(Sender: TObject);
  begin
   Try
    if S1.Execute then
      Begin
       S1.SaveFile(SaveDialog1.FileName);
  //  CopyFile(PChar('c:\boot\Soccer.c'),PChar('c:\boot\Backup\Soccer.c'),False);
       Beep;
       Showmessage('数据备份成功了，请退出');
       Exit;
     end;
   Except
    Beep;
    Showmessage('数据备份失败了，正在退出');
    Exit;
  end;