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

在打开的目录窗口上点击取消报错怎么解决？
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 只有在遇到异常的时候才会抛出，