#pas
  function PosEx(const SubStr,Str:string; const offset:cardinal = 1):cardinal;
  var ln,p,i:integer;
      bmt:array[0..255] of integer;
  begin
    ln := length(SubStr);
    for i := 0 to 255 do bmt[i] := ln;
    for i := ln downto 1 do
     if bmt[ord(SubStr[i])] = ln then bmt[ord(SubStr[i])] := ln - i;
    Result := 0;
    p := integer(offset) + ln - 1;
    while p <= length(Str) do
     if SubStr[ln] <> Str[p] then p := p + bmt[ord(Str[p])]
     else for i := ln downto 1 do
      if SubStr[i] <> Str[p - ln + i] then begin
        p := p + bmt[ord(Str[p - ln + i])] - i + 1; //тута
        break;
      end else if i = 1 then begin
        Result := p - ln + 1;
        exit;
     end;
  end;