Каталогизатор фотографий: поиск по выбранной папке

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Masks, FileCtrl, jpeg;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
 
 
 procedure DirSearch(Dir: string; Mask : string; SL: TStrings);
var
  SearchRec: TSearchRec;
begin
Dir := IncludeTrailingBackslash(Dir);
if FindFirst(Dir + '*.*', faAnyFile, SearchRec) = 0 then
repeat
Application.ProcessMessages;
 
if (SearchRec.Attr and faDirectory) <> 0 then begin
if (SearchRec.name <> '.') and (SearchRec.name <> '..') then
DirSearch(Dir + SearchRec.name, Mask, sl)
end
else
if MatchesMask(ExtractFileName(SearchRec.Name), Mask) then
Sl.Add(Dir + SearchRec.Name);
 
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
chosenDirectory : string;
begin
if SelectDirectory('Выберите каталог','', chosenDirectory)
then 
form1.listbox1.Clear;
DirSearch(chosenDirectory, '*.jpg', form1.listbox1.Items);
end;
 
procedure TForm1.ListBox1Click(Sender: TObject);
var
jpg:tjpegimage;
begin
jpg:=tjpegimage.Create;
jpg.LoadFromFile(listbox1.Items[listbox1.ItemIndex]);
image1.Picture.Assign(jpg);
if Assigned(jpg) then jpg.Free;
end;
 
end.