Bei mir hatte das ganze geklappt, nachdem ich die File-Variablen zum File of Byte gemacht und das ,1 entfernt hatte, also:
Delphi-Quellcode:
function Extract(SFXArchive, DestFile: String; SFXFileSize: LongInt): Integer;
var
FSFXArchive, FDestFile: File of Byte;
MemBuffer : array [0..BLOCKSIZE] of Byte;
BytesToRead, BytesRead: Integer;
begin
SetLastError(0);
BytesToRead := sizeof(MemBuffer);
{$IOCHECKS OFF}
AssignFile(FSFXArchive, SFXArchive);
Reset(FSFXArchive);