myStream.Free;
-->  myStream.Destroy;

解决方案 »

  1.   

    FileName:='d:/test/text.txt';------这样写好像有问题吧,改成下面的试试: FileName:='d:\test\text.txt';
      

  2.   

    你的FileExist(FileName)也有问题:函数是:FileExists();
      

  3.   

    已测试可以,要求'd:/test/text.txt'已存在。procedure TForm1.Button1Click(Sender: TObject);
    var
      FileName:string;
      myStream:TFileStream;
    begin
      FileName:='d:/test/text.txt';
      myStream:=TFileStream.Create(FileName,fmOpenReadWrite or fmShareDenyNone);
      myStream.Destroy;
      if FileExists(FileName) then DeleteFile(FileName);
    end;