список свойств компонента

#if((__BORLANDC__ >= 0x550) && (__BORLANDC__ < 0x560))
        #define tkMyProperties (TTypeKinds() << tkInteger << tkChar << tkEnumeration \
                        << tkFloat << tkString << tkSet << tkClass << tkWChar << tkLString << tkWString << tkVariant << tkArray \
                        << tkRecord << tkInterface )
    #else
        #define tkMyProperties tkProperties
    #endif

    ...
    PTypeInfo pTypeInfo = (PTypeInfo)Button1->ClassInfo();

    TPropList PropList;
    int PropCount = GetPropList(pTypeInfo, tkMyProperties, PropList);

    for(int i = 0; i < PropCount; i++)
    {
        Memo1->Lines->Add(PropList->Name);
    }
    ...