[Uniq!]

Ребят, как бы поэлегантнее представить пользователю выбор картинок из списка. Сами картинки bmp файлы лежащие в сгруппированных папках.
Использую devexpress компоненты:

Код:

procedure TForm1.FormShow(Sender: TObject);
var
  Bitmap: TBitMap;
  fs: TSearchRec;
  i: integer;
begin
  i := 0;
  if FindFirst('D:\IconSet\*.bmp',
    faAnyFile - faDirectory - faVolumeID, fs) = 0 then
    repeat
      Bitmap := TBitMap.Create;
      Bitmap.LoadFromFile('D:\IconSet\'
        + fs.Name);
      cxImageList1.AddMasked(Bitmap, clWhite);
      dxImageListBox1.Items.Add(fs.Name);
      dxImageListBox1.ImageIndexes[i] := i;
      inc(i);
      Bitmap.Free;
    until FindNext(fs) <> 0;
end;

Может, подскажет кто, как лучше это сделать?