为什么我用deletefile删除文件总是失败?

为什么我用deletefile删除文件总是失败?
下面是代码部分内容:
    ID:=ListView1.Selected.Index;
    //showmessage(listview1.Items[ID].Caption);
    filename:=mulu+'\'+listview1.Items[ID].Caption;
    showmessage(filename);
    if FileExists(FileName) then
    begin
    if MessageDlg('你要删除'+' "'+ExtractFileName(FileName)+'" '+ '文件吗?', mtConfirmation, [mbYes, mbNo],0)=IDYes then
      begin
       if DeleteFile(FileName) then
          messagedlg('删除文件成功!',mtinformation,[mbok],0)
       else
          messagedlg('删除文件失败!',mtinformation,[mbok],0);
      end
    end
    else
       messagedlg('文件不存在!',mtinformation,[mbok],0);