Программа выбор картинок на делфи

[Surreal]

Помогите, пожалуйста, новичку сделать програмку на Делфи.
У нас есть 400 картинок в папке "Рисунки"
Нужно сделать так, чтобы был список названий этих картинок в правой части программы, и по клике на название отображалась эта картинка.
Вот на картинке показано как это должно выглядеть:


Если можно подскажие как это осуществить поэтапно

[Smogg]

1. Объявляем StrinList:TStringList.

2. Добавляем на форму компонент ListBox

3. задаем исходный каталог

4. Через FindFirst(), FindNext(), FindClose() получаем файлы. Проверяем их на соответствующие условия (чтоб не директория, что б расширение *.jpg и пр.)
//Для интереса и юзабельности можно прикрутить рекурсивный поиск по всем вложенным папкам.

5. Получаем в цикле имя файла. К этому имени добавляем каталог. Имя файла добавляем в ListBox, а "каталог + имя файла" - в StrinList. Причем, если обойтись без сортировки, то есть .Sorted = false, то все вставляется сразу правильно. Но не удобно, ибо месиво. Зато легко запрограммировать, тупо Add() и ничего больше.

С сортировкой похитрее. Но тоже не сложно. Только там нужно будет использовать четыре списка. Два первичные - неупорядоченные, т.е. StringList.Sorted = false, в которые сохраняем найденные имена файлов и полные пути до с именами файлов. И два вторичных - упорядоченный (только с именем) и не упорядоченный (с полным путем).
Присваиваем им разные способы сортировки так:
ListBox2.Sorted = true; StringList2. Sorted := false;

Теперь начинаем цикл и раскидываем строчки из первичных списков по вторичным:
Добавляем имя файла в упорядоченный список ListBox'a.
for i:= 0 to StringListName.Count - 1 do
begin
ListBox2.Items.Add(StringListName.[i]);
Он там хитрым образом сортируется. А результат сортировки получаем через ListBox2.Items.IndexOf(StringListNa me.Strings[i]);
И вот теперь уже в StringList2 в правильное место впихиваем правильный путь до правильно соотнесенного имени файла.
StringList2.Insert(ListBox2.Items.I ndexOf(StringListName.Strings[i]), StringListFullPath.Strings[i]);

6.По событию Click на листбокс узнаем выделенную строку через ListBox1.ItemIndex.

7. Наконец грузим картинку:
Image1.Picture.LoadFromFile( StringList1.Strings[ListBox1.ItemIndex]);

[Rin]

Тебе помочь написать прогу или дать готовую нужно?

[Surreal]

Smogg, большое спасибки, щас буду пробовать
Rin, а есть готовая?))

[Rin]

Вот

Линк нерабочий, поэтому залил на форум.

[Lina_30]

Добрый день. Unit скачала и посмотрела. Но сама воспроизвести не могу. Можно ли попросить программу с формой