탐색기를 만들어 보려고 하고 있는데요.

ListView에 vsIcon 했는데도 아이콘의 크기가 너무 작네요.

소스는

    if(OpenDialog1->Execute())
    {
        TIcon *ico = new TIcon;    unsigned short Index = 0;

        ico->Handle = ExtractAssociatedIcon(HInstance, OpenDialog1->FileName.c_str(), &Index);

        ImageList1->AddIcon( ico );

        TListItem *ListItem = ListView1->Items->Add();
        ListItem->ImageIndex = ImageList1->Count - 1;
        ListItem->Caption = ExtractFileName( OpenDialog1->FileName.c_str() );

        delete ico;
    }

    ListView1->Repaint();

이렇게 되있는데 말이죠.

왜 이런 거죠 ?