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!