class parent
{
public:
        AnsiString name;

};

class A : public parent
{
public:
        A(AnsiString n)
        { name=n;}
};

class B : public parent
{
public:
        B(AnsiString n)
        { name=n;}
};
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        TList * list = new TList();
        list->Add(new A("a1"));
        list->Add(new A("a2"));
        list->Add(new B("b1"));

        for(int i=0;i<list->Count;i++)
        {
                Memo1->Lines->Add(((parent *)list->Items[i])->name);
        }
}
//---------------------------------------------------------------------------