#pas
type
 THI_EvArray = array of THI_Event;
 THIObjLinker = = class(TDebug)
 ..............................

procedure THIObjLinker.doWork;
var F,G:THI_EvArray;
begin
  F := Obj.HookEvents;
  G := Obj.HookDatas;
  Obj.HookEvents := Events;
  Obj.HookDatas := Datas;
  _hi_OnEvent(Obj.Works[Index],Data);
  Obj.HookEvents := F;
  Obj.HookDatas := G;
end;

..............................
procedure THIEditMultiEx.onEvent;
var X:TListEH;
begin
  X.Hnd := Self;
  X.Prv := THIMultiElementEx(FParent).EvHandle;
  THIMultiElementEx(FParent).EvHandle := @X;
  if (Index<Length(HookEvents))and(assigned(HookEvents[Index].Event)) then
    _hi_onEvent(HookEvents[Index],Data);
  else
    _hi_onEvent(THIMultiElementEx(FParent).Events[Index],Data);
  THIMultiElementEx(FParent).EvHandle := X.Prv;
end;