SaveDialog1确认文件存不存在的方法

procedure TForm1.SaveDialog1CanClose(Sender: TObject;
var CanClose: Boolean);  
begin
if FileExists(SaveDialog1.FileName) then //如果文件已经存在
if MessageDlg(’文件已经存在，保存吗？’, mtConfirmation, [mbYes, mbNo], 0) <> mrYes then
Button2.Click ; //如果选择了覆盖，则退出，否则，重新让用户选择文件
end;