在fmOpenReadWriteMode中打开文件时，复制文件失败

我正在研究一个小字节修补程序，但遇到错误。

修改之前复制文件失败，没有错误，（没有看到复制的输出），但是文件已成功打补丁。

这是补丁代码

procedure DoMyPatch();
var

  i: integer;
  FileName: string;
  input: TFileStream;

  FileByteArray, ExtractedByteArray: array of Byte;

begin
  FileName := 'Cute1.res';

  try
    input := TFileStream.Create(FileName, fmOpenReadWrite);
  except
    begin
      ShowMessage('Error Opening file');
      Exit;
    end
  end;

  input.Position := 0;
  SetLength(FileByteArray, input.size);
  input.Read(FileByteArray[0], Length(FileByteArray));

  for i := 0 to Length(FileByteArray) do
  begin
    SetLength(ExtractedByteArray, Length(OriginalByte));
    ExtractedByteArray := Copy(FileByteArray, i, Length(OriginalByte));

// function that compares my array of bytes
    if CompareByteArrays(ExtractedByteArray, OriginalByte) = True then
    begin
      // Begin Patching

     CopyFile(PChar(FileName), PChar(ChangeFileExt(FileName, '.BAK')),
            true);  =======>>> fails at this point, no copied output is seen.

        input.Seek(i, SoFromBeginning);


          input.Write(BytetoWrite[0], Length(BytetoWrite)); =====>>> patches successfully

          input.Free;
      ShowMessage('Patch Success');
      Exit;
    end;

  end;
  if Assigned(input) then
  begin
    input.Free;
  end;

  ShowMessage('Patch Failed');


end;

sidenote：如果我在尝试复制之前关闭文件流，它将复制良好。

顺便说一下，我已经在Delphi 7和XE7上对其进行了测试。谢谢