!!!!vaya qué despiste!!!
Pues ahora mismo no lo llevo encima (no tengo internet en casa). Quizás mañana a esta hora...
Muchas gracias a todos, por las sugerencias y códigos.
Edito: En mi código no busco una cadena dentro de otra (buscar una SubString en una String), sino que en una string busco la parte 2, o 3, ó 4, ó 1000. Sería algo así:
Código Delphi
[-]
s:=ObtienePalabra(';','Uno;dos;tres',2);
Para saber cuántas palabras hay (las palabras pueden ser nulas, como "uno;dos;;cuatro") simplemente cuento cúantos separadores hay (en el ejemplo, ";")