#pas
      while st.Read(b, 1) = 1 do
      begin
        if b = _prop_TrailingStr[i + 1] then Inc(i) else i := 0;
        Inc(k);
        if i = c then break; // Найдено
        // При ненахождении окончания в больших файлах поиск будет медленным -
        // TODO: поставить ограничение на макс. длину.
      end;