Ещё вариант, чуток быстрее.
sashaoli,
code_34358.txt
Почему такой вариант:
1. При создании программы заполняется только один список в StrList.
2. Заполнение списка выбора(ключей) из списка ключ=ответ исключает ошибки.
3. Результат по индексу (FList.Items[Index]) отрабатывает намного быстрее любого поиска текста.