...
Child := EditMultiEx_76B9540;
  Child.MainClass := TClassMultiBase(Self); // work but not correct... :(
  Child.Parent := Self;
  SetLength(Events, 1);
  SetLength(Datas, 0);
...

constructor THISUPERELEMENT.Create;
begin
  inherited Create;
//Init for EditMultiEx;
  EditMultiEx_76B9540 := THIEditMultiEx.Create;
  with EditMultiEx_76B9540 do begin
    SetLength(Works,2);
    SetLength(Vars, 0);
  end;
//Init for ChanelToIndex;
  ChanelToIndex_78A23E0 := THIChanelToIndex.Create;
  with ChanelToIndex_78A23E0 do begin
    _prop_Count := 2;
  end;
//Init for ChangeMon;
  ChangeMon_785CBB8 := THIChangeMon.Create;
 //%multi%
 //Make all connection in scheme
  EditMultiEx_76B9540.Works[0]             := _DoEvent(ChanelToIndex_78A23E0.doWork,0);
  EditMultiEx_76B9540.Works[1]             := _DoEvent(ChanelToIndex_78A23E0.doWork,1);
  ChanelToIndex_78A23E0._event_onIndex     := _DoEvent(ChangeMon_785CBB8._work_doData,0);
  ChangeMon_785CBB8._event_onData          := _DoEvent(EditMultiEx_76B9540.OnEvent,0);

  Child := EditMultiEx_76B9540;
  Child.MainClass := TClassMultiBase(Self); // work but not correct... :(
  Child.Parent := Self;
  SetLength(Events, 1);
  SetLength(Datas, 0);
end;