I found that code below is working. Is it a good solution?

void __fastcall TFormMain::VSTCreateEditor(TBaseVirtualTree *Sender, PVirtualNode Node,
          TColumnIndex Column, IVTEditLink *EditLink)
{
    reinterpret_cast<System::DelphiInterface<IVTEditLink>&>(*EditLink) = *(new TPropertyEditor());

    DEBUG_FUNC("\n");

}