Hint

Я бы первым делом проверил время выполнения при отсортированном списке (в этом случае при IndexOf используется умный алгоритм поиска, а не обычный перебор). Т. е. добавьте "L2.Sorted := True". Если результат не устроит, то экспериментируйте дальше. Например, попробуйте для L2 вместо TStringList использовать хеш-таблицу TDictionary и метод ContainsKey.

А еще у вас утечки памяти. В случае exit объекты не уничтожаются. Используйте try и finally.

Добавляет удобства. Все действия в одном месте (ими удобно управлять). И можно сказать, что главным становится действие, а не какой-то компонент (например, кнопка). Создаете действие, называете его как-то осмысленно. Создаете кнопку, создаете пункт меню, назначаете обоим элементам одно и тоже действие (и метод в коде называется не Button1Click, а исходя из логики самого действия). Хотя почти все это можно сделать и вручную без ActionList.
helpdelphi.ru/actionlist/
www.beluch.ru/progr/100comp/9_2.htm