Рандомная загрузка изображений

[Moon_Cat]

Всем доброго времени суток. Подскажите пожалуйста, как сделать так, чтобы приложение брало системную дату(месяц и день) формата mm.dd, искало папку с таким же названием в определённой директории(например "project\mm.dd"), из этой папки подхватывало рандомное изображение и передавало его в Timage. Знаю что для работы с датой используется TDateTime и процедура DecodeDate, но как это всё связать и сделать так, чтобы это значение сравнивалось с названием папок и из папки брались рандомные изображения не получается:-(. Заранее огромное спасибо.
P.S. Delphi 7

[evg_m]

s:=formatDatetime('mm.dd', date);
d:='project\'+s+'\' ; //нужная нам папка
k:=FindFirst(d, '*.jpg', sr); // будем искать картинки в этой папке
i:=0;
while k=0 do begin
  nm[i]:=d+ sr.Name; // запоминаем "полное" имя файла (вместе с путем к нему) каждой найденной картинки типа такого project\03.09\first.jpg
  i:=i+1; // и считаем их количество
  k:=FindNext(sr);
end;

k:=random(i); // получаем случайный номер нашей картинки
res:=nm[k]; // "вспоминаем" имя файла этой картинки

КОД примерный и параметры функции могут не соответствовать действительности.

Уточнить можно здесь (Основы Delphi 4-я из ссылок вверху этой и любой другой страницы форума)