Procedimientos para separar cadenas

[ixMike]

!!!!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);
//s ahora vale "dos"

Para saber cuántas palabras hay (las palabras pueden ser nulas, como "uno;dos;;cuatro") simplemente cuento cúantos separadores hay (en el ejemplo, ";")