Busca en la ayuda las funciones que contiene la unit StrUtils y échales un vistazo.
Además de la que te ha dicho [dec], hay otras formas.
Por ejemplo, también debería servirte:
Código Delphi
[-]
function AnsiContainsText(const AText, ASubText: string): Boolean;
Incluída en la Unit que he comnentado más arriba.