Алгоритм Бойера — Мура: нужна программа с примером - VB

function BMSearch( StartPos : Integer; const S, P : String;
  const BMT : TBMTable) : Integer; 
var
  Pos, lp, i : Integer;
begin
  lp := Length(P);
  Pos := StartPos + lp –1;
  while Pos < Length(S) do
    if P[lp] <> S[Pos] then Pos := Pos + BMT[S[Pos]]
    else for i := lp - 1 downto 1 do
      if P[i] <> S[Pos – lp + i] then
      begin
        Inc(Pos);
        Break;
      end 
      else if i = 1 then
      begin
        Result := Pos – lp + 1;
        Exit;
      end;  
  Result := 0;
end;