Создание интерфейсов

#ifndef TMyObjectH
#define TMyObjectH
#include <Classes.hpp>
//---------------------------------------------------------------------------
__interface  INTERFACE_UUID("{D0C74612-9E4D-459A-9304-FACE27E3577D}") IMyObject : public System::IInterface
{
public:
    virtual UnicodeString ToMyString() = 0;
};
typedef System::DelphiInterface<IMyObject> _IMyObject;
//---------------------------------------------------------------------------
class TMyObj : public TCppAggregatedObject<IMyObject>
{
public :
   __fastcall TMyObj(const _di_IInterface Controller) : _AGGREGATED_CLASS(Controller)
   {}
   UnicodeString ToMyString()
   {
       return "ЁЁЁЁЁЁЁ";
   }
};
//---------------------------------------------------------------------------
class TMyObject : public TInterfacedObject
{
private:
    TMyObj *obj;
    IMyObject *iobj;
protected:
    void initAggregatee()
    {
        _IMyObject iobjj;
        GetInterface(iobjj);
        _IMyObject iobjjj;
        (obj = new TMyObj(iobjj))->GetInterface(iobjjj);
        iobj = iobjjj;
    }
public:
    __fastcall TMyObject()
    {
        initAggregatee();
    }
    __fastcall ~TMyObject()
    {
        delete obj;
    }
    __property IMyObject* Object = { read=iobj, implements };
};
//---------------------------------------------------------------------------
#endif

   __fastcall TMyObj(const _di_IInterface Controller) : _AGGREGATED_CLASS(Controller)
   {}

public :
   __fastcall TMyObj(const _di_IInterface Controller) : TCppAggregatedObject<IMyObject>(Controller)
   {}

    void initAggregatee()
    {
        _IMyObject iobjj;
        GetInterface(iobjj);
        _IMyObject iobjjj;
        (obj = new TMyObj(iobjj))->GetInterface(iobjjj);
        iobj = iobjjj;
    }

(obj = new TMyObj(iobjj))->GetInterface(iobjjj);

    TMyObject *ptr;
    _IMyObject i_ob;
    if((ptr = new TMyObject())->GetInterface(i_ob))
        wcout<<i_ob->ToMyString().w_str();

    void initAggregatee()
    {
        /*_IMyObject*/_di_IInterface iobjj;
        GetInterface(iobjj);
        _IMyObject iobjjj;
        (obj = new TMyObj(iobjj))->GetInterface(iobjjj);
        iobj = iobjjj;
    }