Создать прозрачную иконку TIcon

TIcon *icon = new TIcon;
ImageList->GetIcon (0, icon);

#include <memory>
 
void ConvertBmp2Ico(Graphics::TBitmap *ABitmap, TIcon *AIcon) {
    std::auto_ptr<TImageList>AImgList(new TImageList(Application));
    AImgList->AddMasked(ABitmap,ABitmap->TransparentColor);
    AImgList->GetIcon(0,AIcon);
}
 
void __fastcall TForm1::FormClick(TObject *Sender)
{
    for (int i = 0; i < 5; i++) {
        // создаём изображение, в котором рисуем всё, что нам надо
        std::auto_ptr<Graphics::TBitmap>ABitmap(new Graphics::TBitmap);
        ABitmap->Width = 16;
        ABitmap->Height = 16;
        ABitmap->Canvas->TextOutW(5,2,i);
        ABitmap->Transparent = true;
        // создаём иконку
        std::auto_ptr<TIcon>AIcon(new TIcon);
        // конвертируем изображение в иконку
        ConvertBmp2Ico(ABitmap.get(),AIcon.get());
        // работаем с нашей иконкой
        TForm* AForm = new TForm(this);
        // чтобы не беспокоится об удалении, добавим в состав компонентов главной формы,
        // она при закрытии сама удалит потом формы
        this->InsertComponent(AForm);
        AForm->Icon->Assign(AIcon.get());
        AForm->Show();
    }
}