在打开的目录窗口上点击取消报错如何解决

在打开的目录窗口上点击取消报错怎么解决？
procedure TForm2.Button4Click(Sender: TObject);
var
  DD : integer;
  fname2:string;
  CKWJ:textfile;

begin

  try
  if Savedialog1.Execute then
  begin
  fname2:=savedialog1.FileName;
  Edit5.Text:=fname2;
  assignfile(CKWJ,fname2);
  rewrite(CKWJ);

  writeln(CKWJ,DD);

  end;
  Closefile(CKWJ); // 报错 I/O error 103 (怎么才能让点击取消显示下面的信息呢？)
  except
  Closefile(CKWJ);
  ShowMessage(' 注意：用户取消保存！');
  end;

end;

[解决办法]
或者这样试试

Delphi(Pascal) code

var  DD : integer;  fname2:string;  CKWJ:textfile;begin  try  if Savedialog1.Execute then  begin  fname2:=savedialog1.FileName;  Edit1.Text:=fname2;  assignfile(CKWJ,fname2);  rewrite(CKWJ);  writeln(CKWJ,DD);  Closefile(CKWJ);  end;  except  //Closefile(CKWJ);  ShowMessage(' 注意：用户取消保存！');  end;
[解决办法]
这是肯定的，except 只有在遇到异常的时候才会抛出，