Delphi ya cuenta con un función que hace algo parecido, busca en la ayuda por la función
Pos.
Aquí te dejo un pequeño ejemplo de su uso:
Código Delphi
[-]
Cadena_1 := 'Hoy es un buen día';
Cadena_2 := 'es';
if Pos(Cadena_2, Cadena_1) > 0 then
ShowMessage(Format('La cadena ''%s'' si existe en la cadena ''%s''', [Cadena_2, Cadena_1]))
else
ShowMessage('Cadena no encontrada')
Saludos...