schoty
Выкладываю просто функцию *_*

function PosCount(substr, str: string): integer;
var
  p, i: integer;
begin
  i:=-1;
  p:=0;
  repeat
    i:=i+1;
    p:=PosEx(substr, str, p + Length(substr));
  until p=0;
  Result:=i;
end;

Количество подстрок определяет на ура, писал для просто символов.
(c) crystalbit, http://parsers.info

Функции, функции, как мило. А сейчас весна, между прочим. Помимо функций думаю купить кое-кому цветы, даже сайт под рукой ( http://www.flo4you.ru/ ) Красивые букеты, даже скидки какие-то есть.