saber si texto esta contenido en string

[Manuel]

Hola amigos del foro, quisiera saber si existe un función que realice lo siguiente: saber si texto esta contenido en string. Me explico:

Código Delphi [-]
A:='JUAN LISTO';
B:='EN EL BOSQUE JUAN LISTO BUSCABA EL TESORO';

IF estacontenido(a,b) then ShowMessage('Esta en string')
   else ShowMessage('NO esta en string');

Existira una función en delphi como 'estacontenido' en el ejemplo, o hay que crearla, si alguien me puede echar una mano por favor.