function cpos(sub,s:string):integer;
begin
   result:=0;
   while pos(sub,s)>0 do begin
      inc(result);
      s:=copy(s,pos(sub,s)+length(sub),length(s));
   end;
end;