Funcion para buscar cadena dentro de otra cadena y el numero de veces

[Enan0]

Bueno aca te dejo una pequeña funcion que escribi.. con esto deberia funcionar, a simple vista lo hace.
Como veras el texto deberia entrar como parametro y ser asinado a la variable S y 'perro' deberias parametrizarlo para poder buscar cualquier cosa.
de todas maneras fijate si funciona bien

Código Delphi [-]
var I,n:Integer;
     s:string;
begin
    n:=0;
    i:=pos(s,'perro');
    while i>0 do begin
       inc(n);
      delete(s,1,i+length('perro'));
      i:=pos(s,'perro');
    end;
end;

Jajajaja creo que tarde mucho en escribirla jejejje