Sí. La función
AnsiContainsText.
Recorres la lista de strings comparando cada una con la cadena dada usando esta función.
Código Delphi
[-]
for I := 0 to Lista.Count - 1 do
if AnsiContainsText(Lista[i], 'la mesa es roja y el las sillas tambien') then
begin
Encontrado := true;
Break;
end;
LineComment Saludos