Молодец DrMefistO хорошая прога быстро сканирует и все дела. Но вот есть маленькая проблемка сами фотки да и палитра тоже мерцают когда перегружаются ты мог-бы избавится от этого используя Panel1.DoubleBuffered := true; поскольку TImage у тебя находится в TPanel если я не ошибаюсь, это катит в Delphi 6-7 которые я использую. К стати я тоже написал подобную прогу когда-то
ВОТ ЗДЕСЬ взгляни если хочешь. Удачи с программированием твоей проги ;)