Problem mit BlockRead, BlockWrite

[Luckie]

Folgende Situation:
Eine Exe-Datei mit einer zusätzlich angehängten Datei (copy /b foo.exe + test.mp3 bar.exe). Die reesultierende Exe ist noch lauffähig.
Zweites Programm beinhaltet eine Funktion, die die angehängte Datei extrahieren soll. Soll mal ein SFX Archiver werden, also in ansätzen. damit ich nicht jedes mal die Dateigröße anpassen muss, arbeite ich mit zwei Anwendungen. Später wenn der Code steht und somit die Größte bekannt ist, kommt alls in die Exe, an die eine Datei angehängt werden kann.)

Folgender Source macht Probleme:

Delphi-Quellcode:

const
  FILESIZE = 359424;
  BLOCKSIZE = 65535;

function Min(x, y: Cardinal): Integer;
begin
  if x < y then
    result := x
  else
    result := y;
end;

function Extract(SFXArchive, DestFile: String; SFXFileSize: LongInt): Integer;
var
  FSFXArchive, FDestFile: File;
  MemBuffer : array [0..BLOCKSIZE] of Byte;
  BytesToRead, BytesRead: Integer;
begin
  SetLastError(0);
  BytesToRead := sizeof(MemBuffer);
{$IOCHECKS OFF}
  AssignFile(FSFXArchive, SFXArchive);
  Reset(FSFXArchive, 1);  // ohne Komma 1 geht er nicht in die Schleife rein
  if IOResult = 0 then
  begin
    AssignFile(FDEstFile, DestFile);
    Rewrite(FDestFile);
    if IOResult = 0 then
    begin
      Seek(FSFXArchive, SFXFileSize);
      while (BytesToRead > 0) and (not EOF(FSFXArchive)) do
      begin
        BlockRead(FSFXArchive, MemBuffer, Min(sizeof(MemBuffer), BytesToRead),
          BytesRead);
        BlockWrite(FDestFile, MemBuffer, BytesRead);
        Dec(BytesToRead, sizeof(MemBuffer));
        writeln(BytesToRead);
      end;
    end;
    CloseFile(FDestFile);
  end;
  CloseFile(FSFXArchive);
{$IOCHECKS ON}
  result := GetLastError();
end;

Als Fehlermeldung bekomme ich:

Zitat:

---------------------------
Extractor
---------------------------
Der angegebene Benutzerpuffer ist für den angeforderten Vorgang nicht zulässig
---------------------------
OK
---------------------------