바이너리 파일을 읽어서 특정위치의 1 바이트를 다른 값으로 변경하여
저장하고자 합니다.

델파이 도움말에 있는 예제에 있는 것처럼 기존의 파일을 읽어서 새로운
파일로 복사하면서 해당 위치의 값을 변경하여 저장하는 식으로 하니까
시간이 많이 걸리는군요.

그냥 원본파일을 읽어서 해당위치로 이동(FileSeek 나 Seek)하여 한 바이트의
값을 변경한 후, 바로 저장할 수 있는 방법은 없는지요.
참고로 바이너리 파일의 크기는 수백메가 정도 됩니다.

var
  FromF, ToF: file;
  NumRead, NumWritten: Integer;
  Buf: array[1..2048] of Char;
begin
  if OpenDialog1.Execute then     { Display Open dialog box }
  begin
    AssignFile(FromF, OpenDialog1.FileName);
    Reset(FromF, 1);        { Record size = 1 }
    if SaveDialog1.Execute then      { Display Save dialog box}
    begin
      AssignFile(ToF, SaveDialog1.FileName);        { Open output file }

      Rewrite(ToF, 1);        { Record size = 1 }
      Canvas.TextOut(10, 10, 'Copying ' + IntToStr(FileSize(FromF))
        + ' bytes...');
      repeat
        BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
        BlockWrite(ToF, Buf, NumRead, NumWritten);
      until (NumRead = 0) or (NumWritten <> NumRead);
      CloseFile(FromF);
      CloseFile(ToF);
    end;
  end;
end;