La libreria NKlibs, tiene rutinas para buscar la ocurrencia de un caracter varias veces, además de otras muchas rutinas casi necesarias en el tratamiento de nombres de archivos, busqueda de archivos, strings y algunas cosas más.
Buscala en google.
Código Delphi
[-]
function BMPos(const cPttrn, cTarget: String): Integer;
function BMFirst(const cPttrn, cTarget: String): Integer;
function BMNext(iPos: Integer): Integer;
function BMLast: Integer;
function BMAll(const cPttrn, cTarget: String): TStringList;
Saludos