Цикл не работает

[doniyor]

Хай! В следующем исходнике не работает цикл поиска ВСЕХ файлов *.jpg на жёстком диске. Т.е. я добился поиска только в определённом томедиска а вот как поставить цикл поиска во всех томах???

[eoln]

Заменить

directory := 'C:\';

на

directory := listbox2.Items.Strings[h];