如何避免覆盖？

findfile
if opendialog1.execute then
begin
 if ...//查询看是否有这个文件 then
  begin
   //提示
   exit;
  end
end;