#pas
procedure THIMultiElementEx.doWork;
var F:THIEditMultiEx;
begin
    if FChild = nil then                // когда select указывает "в никуда"
     begin
      F := CreateInstance;              // создал
      _hi_OnEvent(F.Works[Index],Data); // исполнил для созданного
      F.MainClass.Destroy;              // убил
     end
    else _hi_OnEvent(FChild.Works[Index],Data);
end;