Delphi中TSaveDialog问题

Question

TSaveDialog在使用的时候出现一个bug。不知道是什么原因，请大家解释一下。var
  SaveDlg:TSaveDialog;
begin
  SaveDlg:=TSaveDialog.Create(nil);
  if SaveDlg.Execute then
  begin
    ShowMessage(SaveDlg.Files.Strings[0]);
  end;
end;这时候不关闭程序。对保存的文件夹进行重命名会提示“重命名出错”。
感觉是某个资源没释放。
请问下如何释放文件夹的资源，达到可以在程序不关闭的情况下重命名文件夹？
求大神解释下。
小弟谢了。

Answer 1

测试无此现象。
win7sp1+XE2

Answer 2

是这样的。比如showmessage出现的是C:\1\2.TXT则C:\1这个文件夹是不能重命名的。
能不能再帮我在win7上看看？
我被这个问题整了两天了

Answer 3

to:5楼
我在最后加入了SaveDlg.Free;
效果还是一样的。

Answer 4

设计时,SaveDialog1.OPtions属性 这个ofNoChangeDir设置为True
或者创建时
procedure TForm1.FormCreate(Sender: TObject);
begin
  SaveDialog1.Options := SaveDialog1.Options +  [ofNoChangeDir];
即可