создание графического теста

[Missmur]

Здравствуйте! нужна помощь. В Delphi нужно сделать проверку совпадений слов, написанных пользователем с хранящимися в какой то текстовом файле. То есть, у меня тест в котором нужно за 20 секунд запомнить нарисованное на картинке, а затем ввести что запомнили в Memo, потом должна пройти проверка совпадений слов в memo и в файле, и при нажатии кнопки "Результаты" должно появиться Message с количеством совпадений. Прошу помочь с алгоритмом проверки совпадений

[GetMax]

на мой взгляд проще всего сделать так.
1. Загрузить слова из файла в TStringList
2. цикл по всем строка TMemo
2.1 цикл по всем строкам TStringList
2.2 если слово из строки TMemo[i] == слову из TStringList, то увеличиваем счетчик совпадений и выходим из цикла 2.2
3. Выводим количество совпадений.