Hola.
Coso, la solución que propones creo que no funciona (o, al menos, no me funcionó a mí).
La solución de Ecfisa funciona bien.
Aquí incluyo otra posible solución.
Se usa el texto de 2 Edit. Edit1 contiene la cadena en la que hay que buscar el texto que aparece en Edit2.
Está como una condición y no como función:
Código Delphi
[-]
if
Copy ( Edit1.Text,
length ( Edit1.Text ) -length ( Edit2.Text ) +1,
length ( Edit2.Text ) ) = Edit2.Text
then
Label1.Caption := 'Si está contenido'
else
Label1.Caption := 'NO está contenido' ;
Saludos