Дополнительный параметр к TListControlItem

   namespace NewControlItem
    {
        class  TListControlItem : public Vcl::Listactns::TListControlItem
            {
                    private:
                        String FMyStr;
                    public:
                         __fastcall virtual TListControlItem(System::Classes::TCollection* Collection)
                        : Vcl::Listactns::TListControlItem(Collection)
                        {
                        }
                   __property String AMyStr= {read=FMyStr, write=FMyStr};
            } ;
    }
 
#define  TListControlItem NewControlItem::TListControlItem

     TListControlItem * A;
     A = ComboBoxEx1->ItemsEx->Items[0];

A = static_cast<TListControlItem*>(ComboBoxEx1->ItemsEx->Items[0]);

     TListControlItem * A = static_cast<TListControlItem*> (ComboBoxEx1->ItemsEx->Items[0]);
     A->AMyStr = "TestString";
     TListControlItem * B = static_cast<TListControlItem*> (ComboBoxEx1->ItemsEx->Items[0]);
     ShowMessage(B->AMyStr);

struct Str
{
    Str(const String &s) : AStr(s)
    {
    }
    String AStr;
};
 
// ...
     ComboBoxEx1->ItemsEx->Items[0]->Data = new Str("TestString");
     ShowMessage(static_cast<Str*>(ComboBoxEx1->ItemsEx->Items[0]->Data)->AStr);