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