Схема для просмотра и копирования иконок из файлов, создавалась из-за неумения красиво рисовать иконки и желания использовать уже предоставленные кем-то иконки Авось кому-то сгодится...
Программа просматривает все файлы из выбранной директории (желающие могут включить вход в подкаталоги (кнопка в Меню)) и, при наличии хоть одной иконки в файле (неассоциированной), заносит файл в список, при выборе из которого можно и просматривать эти миниатюры.
Иконки можно сохранять как одиночно, так и скопом, в нужную директорию, в форматах: ico, png и pack (коллекция HiAsm), так же одиночно (в формате bmp) копировать в буфер обмена и подготавливать иконку для вставки в какой-либо контейнер схемы HiAsm в виде компонента Icon
icon browser

Добавил:

список ранее открытых каталогов

прерывание длительного сканирования каталогов (клик по анимации) icon browser_5

foksov, похоже у массива иконок есть ограничение. Я включил сканирование подкаталогов и иконки перестали отображаются, если вовремя не остановить само сканирование.

foksov, а зачем в схеме второй версии, в дочерней форме, присутствует не линкованый код delphi?

для подкаталогов нужно отдельный список соответствия файла каталогу вести, вот я и отказался от подкаталогов, из-за лени Подкаталоги -- домашнее задание желающимзабыл удалить, пробовал перехват фокуса окном предпросмотра убрать, но остановился на передаче фокуса основной программе в последней версии, подмигивание осталось... icon browser

Вот еще ссылка на большую базу с иконками, может кому и пригодится...
http://findicons.com