void __fastcall TForm2::Exit1Click(TObject *Sender)
{
    Application->Terminate();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::ListView1SelectItem(TObject *Sender, TListItem *Item, bool Selected)
{
    if ( Selected ) {
        //ShowMessage( Item->Caption );
        TStyleManager::SetStyle( Item->Caption );
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormCreate(TObject *Sender)
{
    int iNumStyles = TStyleManager::StyleNames.get_length();

    ListView1->Items->Clear();
    for ( int i = 0; i < iNumStyles; i++ ) {
        UnicodeString sStyle = TStyleManager::StyleNames[i];
        TListItem* item = ListView1->Items->Add();
        item->Caption = sStyle;
        //TStyleManager::SetStyle( sStyle );
    }
}