[Pyro]

значит проблема из такой:

Имеется два файла - один txt файл с существительными словами русского языка (слова написаны столбиком) и текстовый файл с произвольными словами.
Цель - сравнить файл с произвольными словами со словами в словаре и сохранить совпавшие слова в другой текстовый файл.

сократилась в такую: превратить текст в слова в столбик

можно для начала заменить пробелы знаками конца строки

Код:

str2.text := StringReplace(str2.text, ' ', #13#10, [rfreplaceall]);