TIcon & ExtractIcon

Hejsa og Godmorgen...

Er i gang med at lave en Icon Extractor og har følgende kode:

    HIcon = NULL;
    img = new TIcon;
    HIcon = ExtractIcon(frmMain->Handle,FL->Items->Strings[FL->ItemIndex].c_str(),TB->Position);
        if(HIcon == 0)
        {
            IconInfo->Caption = "No Icon(s) In File";
        }
        else
        {
            IconInfo->Caption = "X Icon(s) In File";
        }
    img->Handle = HIcon;
    Preview->Picture->Icon = img;

Så kan jeg så: img->SaveToFile("fil.ico");
Meennn TIcon kan godt vise ikoner med mange farver, men ikke gemme dem med mange farver, er der en anden måde til dette??
Og hvordan kan jeg finde ud af hvor mange ikoner der er i filen(exe,dll)???