saber si texto esta contenido en string
 

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.

Hola Manuel, existe una función en la unidad StrUtils, llamada AnsiContainsText que hace precisamente lo que necesitas.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  A,B: String;
begin
  A:='JUAN LISTO';
  B:='EN EL BOSQUE JUAN LISTO BUSCABA EL TESORO';

   if AnsiContainsText(B,A) then 
      ShowMessage('Esta en string')
   else 
      ShowMessage('NO esta en string');
end;

Saludos

gracias héctor por contestar pero AnsiContainsText, me desconoce esa función, yo trabajo en delphi 5, a pesar de colocar StrUtils en los uses.

que esto no serviria?

Código Delphi [-]
IF Pos(a,b) > 0 then ShowMessage('Esta en string')
   else ShowMessage('NO esta en string');

Neofito Experto, GRACIAS, JUSTAMENTE, ME SIENTE COMO UN TONTO CUANDO VI LA FUNCION Y ADEMAS ME ANDA MUY BIEN, GRACIAS