#pas
while st.Read(b, 1) = 1 do
begin
  if b = _prop_TrailingStr[i + 1] then Inc(i) 
  else
    if (i > 0) and (b <> _prop_TrailingStr[i]) then Dec(i);
  Inc(k);
  if i = c then break;
end;