Вот-вот. Там же всё найденное грузится в ListBox. Я в логику не вникал (а там она есть???). Просто (уже из твоей схемы) выбросил всё , что мне показалось ещё лишним.
Осталось 163 компонента. (у ashkalov-а было 305). Полёт нормальный.

Блин - не угадал я навскидку. Лишних пока оказалось 142 компонента, а я говорил - около сотни.