Найти число одинаковых элементов в списках

Формулировка : Составьте программу, выполняющую следующие действия:
1) обработку списков L1 и L2 выполните в соответствии с вариантом задания;
2) сформировать список L1 с использованием генератора случайных чисел, а список
L2 – с помощью процедур Create и InsertFirst, считав элементы из текстового файла;
3) определить размеры исходных списков с помощью функции SizeList;
4) если возможно, отобразите список в виде матрицы определенного формата в
компонент StringGrid, в противном случае отобразите содержимое списка в
компонент Memo;
5) вывести в текстовый файл результаты обработки списков – размеры итоговых
списков, их элементы и найденные характеристики.
Во всех заданиях исходный текстовый файл создается заранее с помощью какого-либо
текстового редактора.
Задание для основной программы : Найдите число одинаковых элементов в списках L1 и L2 и обнулите совпадающие элементы.
Дело в том, что форму я уже сделала, несколько пунктов я выполнила(список L1 создается и выводится в StringGrid)
Проблемы начались, когда я начала создавать второй список L2. Делфи не нравится процедура Create во второй кнопке. И не хочет он его показывать в мемо. (Начатую работу прикрепляю архивом ниже.)
Вторая моя проблема заключается в основной программе. Нажимая на кнопку "одинаковые элементы" в текстовый файл должны отображаться два списка, с обнуленными одинаковыми элементами. Преподаватель мне помог, сделал блок-схему.Только вот теперь её нужно засунуть в основную программу. А у меня не получается
(Все процедуры и блок-схему также прикрепляю ниже)
Очень надеюсь, что вы мне поможете......