Эскизы картинок windows на форме

[VNest]

Здравствуйте, помогите пожалуйста, кто знает как отобразить ЭСКИЗЫ КАРТИНОК на форме Дельфи из определенной папки windows. При этом количество картинок - это переменный параметр...
За ранее спасибо!

[BeerDrinker]

Вот простейший пример вывода произвольного числа картинок из заданной папки.
для выбора папки использовался TDirectoryListBox, для отображения картинок с прокруткой TScrollBox.
Обращаю особое внимание на модуль JPEG, без него картинки в формате jpg в timage загружаться не будут!

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, FileCtrl, jpeg;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ScrollBox1: TScrollBox;
    dir: TDirectoryListBox;

    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  n: integer; //счетчик картинок
  x: integer = 10; //координата х
  y: integer = 10;//координата у

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  searchResult: TSearchRec;
  img: timage; 

begin
n:=0;
  // ищем все jpg файлы  в выбраном каталоге
  if FindFirst(dir.directory + '\*.jpg', faAnyFile, searchResult) = 0 then
  begin
    repeat
      inc(n); //увеличиваем счеткчик картинок
      img := timage.Create(Form1); //создаем новый объект Timage
      img.Parent := ScrollBox1; //он будет располагаться в данном компоненте
      img.Show;
      img.Name := 'Image' + inttostr(n);//присваиваем уникальное имя
      img.Left := x; //задаем координаты
      img.Top := y;
      img.Center := true;  //центируем
      img.Proportional := true; //делаем пропорциональным
      img.Stretch := true; //растягиваем
      img.Width := 150; // на ширину в 150 пикс
      img.Height := 150;//и высоту в 150 пикс
      img.Picture.LoadFromFile(dir.directory + '\' + searchResult.Name);// загружаем картинку
      img.Visible := true;//объект видимый

      inc(x, 160); //смещаем хкоординату
      if x > 490 then //в строчке будет 4 картинки, если х координата больше,то
      begin
        x := 10;   // добавляем
        inc(y, 160);// новую строчку
      end;
    until FindNext(searchResult) <> 0;
    FindClose(searchResult);
  end;

end;

end.

[VNest]

Cпасибо! Все супер получилось!!!

[VNest]

Теперь такая у меня возникла проблема, мне надо каждый созданный объек (jpg картинки) обработать, но не знаю как это сделать... т.е. мне нужно при наведении и при щелчке на объект в ScrollBox выводить необходимую информацию в memo. Плииииз помогите решить эту задачу!!!!