Вариант на Паскале работает в несколько раз медленнее.

type
  TBMTable=record
    Skips:array[Char] of Integer;
    SubStr:string;
    SubLen:Integer;
  end;

function InitBMTable(const SubStr:string):TBMTable;
var
  A,SubLen:Integer;
begin
  SubLen:=Length(SubStr);
  Result.SubStr:=SubStr;
  Result.SubLen:=SubLen;
  for A:=0 to 255 do
    Result.Skips[Char(A)]:=SubLen;
  for A:=1 to SubLen-1 do
    Result.Skips[SubStr[A]]:=SubLen-A;
end;

function MemoryStrBMPosAsm(const Table:TBMTable;const Buffer;Size:Integer):Integer; register;
asm
  push edi
  push esi
  push ebx
  push edx
  mov edi,eax
  xor eax,eax
  mov ebx,edx
  add ecx,edx
  mov esi,TBMTable.SubStr[edi]
  mov edx,TBMTable.SubLen[edi]
  lea ebx,[ebx+edx-1]
@1:
  cmp ebx,ecx
  jae @5
  push ebx
  push edx
@2:
  dec edx
  js  @4
  mov al,[esi+edx]
  dec ebx
  cmp al,[ebx+1]
  je @2
  pop edx
  pop ebx
  mov al,[ebx]
  add ebx,dword ptr TBMTable.Skips[edi+eax*4]
  jmp @1
@4:
  pop edx
  pop eax
  sub eax,[esp]
  sub eax,edx
  inc eax
  jmp @_End
@5:
  xor eax,eax
  dec eax
@_End:
  pop edx
  pop ebx
  pop esi
  pop edi
end;

function StrBMScan(Param:Pointer;const Buffer;Size:Integer):Integer;
begin
  Profiler.Start;
  Result:=MemoryStrBMPosAsm(TBMTable(Param^),Buffer,Size);
  if Result<0 then Result:=-TBMTable(Param^).SubLen+1;
  Profiler.Stop;
end;

  BMTable:=InitBMTable(SubStr);
  Position:=ScanStream(Stream,StrBMScan,Pointer(@BMTable),1024*1024);

type
  //Result>=0 - строка найдена, начало в Buffer[Result]
  //Result<0 - строка не найдена, кусок размером в -Result требует повторной обработки
  TScanProc=function(Param:Pointer;const Buffer;Size:Integer):Integer;

function ScanStream(Stream:TStream;ScanProc:TScanProc;Param:Pointer=nil;BufferSize:Integer=65536):Int64;
var
  Buffer:TByteDynArray;
  Res,First,Readed:Integer;
begin
  Result:=0;
  SetLength(Buffer,BufferSize);
  First:=0;
  repeat
    Readed:=Stream.Read(Buffer[First],BufferSize-First)+First;
    if Readed=First then Break;
    Res:=ScanProc(Param,Buffer[0],Readed);
    if Abs(Res)>=Readed then Break;
    Inc(Result,Res-First);
    if Res>=0 then Exit;
    Move(Buffer[Readed+Res],Buffer[0],-Res);
    Inc(Result,Readed-Res);
    First:=-Res;
  until False;
  Result:=-1;
end;

//Сканирование с использованием MemoryStrPos
//Но для длинных строк БМ-поиск действительно намного быстрее
function StrScan(Param:Pointer;const Buffer;Size:Integer):Integer;
begin
  Result:=MemoryStrPos(string(Param),Buffer,Size);
  if Result<0 then Result:=-Length(string(Param))+1;
end;

  Position:=ScanStream(Stream,StrScan,Pointer(SubStr),1024*1024)

function MemoryStrPos(const SubStr:AnsiString;const Buffer;Size:Integer):Integer; register;
asm
{    ->EAX    Pointer to substr              }
{      EDX    Pointer to string              }
{    <-EAX    Position of substr in s or 0    }
        TEST    EAX,EAX
        JE      @@noWork
        TEST    EDX,EDX
        JE      @@stringEmpty
        PUSH    EBX
        PUSH    ESI
        PUSH    EDI
        MOV    ESI,EAX                        { Point ESI to substr          }
        MOV    EDI,EDX                        { Point EDI to s                }
//!!!        MOV    ECX,[EDI-skew].StrRec.length    { ECX = Length(s)              }
        PUSH    EDI                            { remember s position to calculate index        }
        MOV    EDX,[ESI-4]                    { EDX = Length(substr)          }
        DEC    EDX                            { EDX = Length(substr) - 1              }
        JS      @@fail                          { < 0 ? return 0                        }
        MOV    AL,[ESI]                        { AL = first char of substr            }
        INC    ESI                            { Point ESI to 2'nd char of substr      }
        SUB    ECX,EDX                        { #positions in s to look at    }
                                                { = Length(s) - Length(substr) + 1      }
        JLE    @@fail
@@loop:
        REPNE  SCASB
        JNE    @@fail
        MOV    EBX,ECX                        { save outer loop counter              }
        PUSH    ESI                            { save outer loop substr pointer        }
        PUSH    EDI                            { save outer loop s pointer            }
        MOV    ECX,EDX
        REPE    CMPSB
        POP    EDI                            { restore outer loop s pointer  }
        POP    ESI                            { restore outer loop substr pointer    }
        JE      @@found
        MOV    ECX,EBX                        { restore outer loop counter    }
        JMP    @@loop
@@fail:
        POP    EDX                            { get rid of saved s pointer    }
        XOR    EAX,EAX
        JMP    @@exit
@@stringEmpty:
        XOR    EAX,EAX
        JMP    @@noWork
@@found:
        POP    EDX                            { restore pointer to first char of s    }
        MOV    EAX,EDI                        { EDI points of char after match        }
        SUB    EAX,EDX                        { the difference is the correct index  }
@@exit:
        POP    EDI
        POP    ESI
        POP    EBX
@@noWork:
        DEC    EAX  //!!!
end;

var
  Str: String;
begin
  Str := 'aaaaa'+ #0 + 'ffff' + #0#0 + 'fff';
  //Str := ' ¦-&N oh-L D@O OA@O AI' + #0#0 + 'zLEn?F; `YN §a(z)Cyn!O Y^ ¤+ 6b?`¦?"E  NA Z%AL?O7ET--. gL?y' + #0#0 + 'E#! 1 + -*OAyZa AOTn C¦';
  Caption := IntToStr(Pos(#0#0, Str));
end;

Pos(#0#0,'aaaaa'#0'ffff'#0#0'fff');