TsAlphaImageList, динамическая подгрузка изображений

TSearchRec Rec;
            if (FindFirst(L"dir\\*.*",
                faDirectory, Rec) == 0) {
                do {
                    if ((Rec.Attr&faDirectory)
                        == faDirectory && Rec.Name != "." && Rec.Name != ".." &&
                        Rec.Name != "...")
                        sTreeView1->Items->AddChild(sTreeView1->Items->Item[0],
                        Rec.Name);
                }
                while (FindNext(Rec) == 0);

    TSearchRec Rec;
    String dir = L"D:\\test\\1\\";
    if (FindFirst(dir + L"*.*", faDirectory, Rec) == 0)
    {
        do
        {
            if ((Rec.Attr & faDirectory) == faDirectory && Rec.Name != "." && Rec.Name != "..")
            {
                std::auto_ptr<Graphics::TBitmap>bm(new Graphics::TBitmap); // #include <memory>
                bm->LoadFromFile(dir + Rec.Name + ".bmp");
                ImageList1->Add(bm.get(), 0);
                TTreeNode *node =
                    TreeView1->Items->AddChild(TreeView1->Items->Item[0],
                    Rec.Name);
                node->ImageIndex = ImageList1->Count - 1;
                node->SelectedIndex = ImageList1->Count - 1;
            }
        }
        while (FindNext(Rec) == 0);
    }