见鬼了，这是什么bug?

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  fs: tfilestream;
begin
  fs := tfilestream.Create('c:\heroPK~1.02.w3x', fmcreate);
  fs.Free;
  fs := tfilestream.Create('c:\heroPK~1[1].02.w3x', fmcreate);
  fs.Free;
  fs := tfilestream.Create('c:\heroPK~2.w3x', fmcreate);
  fs.Free;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  if fileexists('c:\heroPK~2.w3x') then begin
    showmessage('exists');
  end;
end;就是这样一个简单的程序，用delphi7编译。先执行Button1Click，明明应该创建三个文件，却只创建了前两个。再执行Button2Click，明明没有该文件，却显示'exists'，想往该文件写入数据却又错误。删除第二个文件后，再执行Button2Click，就没有提示了真是见鬼了！！！

Answer 1

搞清楚了，原来是8.3的原因。