Прошу прощения, в Delphi ещё плохо разбираюсь.
Можете пожалуйста подправить код.
Находиться в самом конце.
Путь к файлам в переменных:
SignatureFileName - файл с тем что нужно искать,
CheckFileName - проверяемый файл.
1, 2 и 3 это файлы с произвольным текстом.
Если найдёт хоть 1 строку из искомых должно вывести сообщение "Найдено". Если нету, то "Не найдено".
Ссылка на Яндекс диск с программой.