delphi поиск подстроки в строке

Ответ от Monax Var[гуру]
вот функция которая принимает подстроку (которую надо искать) и текст (в котором надо искать) и возвращает кол-во вхождений. function GetHowManyInn(subs, text: string): word; var tmp: string; begin tmp := text; Result := 0; while pos(subs, tmp) <> 0 do begin inc(Result); delete(tmp, 1, pos(subs, tmp)); end; end;