Extraer palabras de un texto

[BrunoBsso]

Hola Diego.
La función Pos te devuelve el índice donde empieza el sustring que estás buscando.
Supongamos que en "DELPHI PROGRAMMING" estás buscando HI PR.
Pos te va a devolver 5. Lo único que te faltaría sería revisar si desde I=5 hasta I+4 el texto = 'HI PR'.

Código Delphi [-]
S,Aux:String;
I,P:Integer;
Es_HI_PR:boolean;
P:=Pos('HI PR', s);
for I:=P to P+4
  Aux:=Aux+S[i];
Es_HI_PR:=Aux='HI PR';

Eso es lo que te decía anoche después de haber hecho todo el código anterior, pero me dolía la cabeza como para ponerme a teclear.
Creo que con eso funcionaría.
Saludos!