Problem mit BlockRead, BlockWrite

[neolithos]

Delphi-Quellcode:

      Seek(FSFXArchive, SFXFileSize);
      while not EOF(FSFXArchive) do
        begin
          BlockRead(FSFXArchive, MemBuffer, sizeof(MemBuffer), BytesRead);
          BlockWrite(FDestFile, MemBuffer, BytesRead);
        end;

Ich hätte den Anhang so herauskopiert!!!