procedure THIMultiElementEx.EventHandle(var Data:TData; Index:word);
begin
   dtInteger(Data,integer(EvHandle));
end;

procedure THIMultiElementEx.EventIndex(var Data:TData; Index:word);
begin
  dtInteger(Data,FList.IndexOf(EvHandle));
end;

procedure THIEditMultiEx.onEvent;
var X:THIEditMultiEx;
begin
  X := THIMultiElementEx(FParent).EvHandle;
  THIMultiElementEx(FParent).EvHandle := self;
  _hi_onEvent(THIMultiElementEx(FParent).Events[Index],Data);
  THIMultiElementEx(FParent).EvHandle := X;
end;

procedure THIEditMultiEx._Data;
var X:THIEditMultiEx;
begin
  X := THIMultiElementEx(FParent).EvHandle;
  THIMultiElementEx(FParent).EvHandle := self;
  _ReadData(Data,THIMultiElementEx(FParent).Datas[Index]);
  THIMultiElementEx(FParent).EvHandle := X;
end;

 _hi_onEvent(THIMultiElementEx(FParent).Events[Index],Data);[/code]
кто-то еще может повторно вызвать:
procedure THIEditMultiEx.onEvent;[/code]
А вызвать он может повторно потому, что компоненты живут в среде с возможностью паралельного исполнения кода схем. Таже самая проблема возникает и в обычном языке:
int *globalVar;
void my_proc(int tempVar) {
   globalVar = &tempVar;
   do_work();
   globalVar = NULL;
}

do_work() {
  use_globalVar_1();
  use_globalVar_2();
}

void use_globalVar_1() {
   //...
}

void use_globalVar_2() {
   //...
}
ф-ции use_globalVar используют данные из глобальной переменной globalVar. Этот код будет совершенно корректен, если мы никогда и нигде не вызовем my_proc повторно, в противном случае никаких гарантий никто дать не может.  
 В схемах HiAsm на данный момент существует как минимум два таких способа:
1) Использование таймера
2) Использование потока

[size=-2]------ Добавлено в 21:05 [/size]
[quote]Мне кажется, что все нормально - как в стеке...[/quote]
С тем, что все нормально и будет при повторном вызове onEvent из самого себя я и не спорю.

int *globalVar;
void my_proc(int tempVar) {
   int*X = globalVar;
   globalVar = &tempVar;
   do_work();
   globalVar = X;
}

do_work() {
  use_globalVar_1();
  use_globalVar_2();
}

void use_globalVar_1() {
   //...
}

void use_globalVar_2() {
   //...
}

;
void my_proc(int tempVar) {
   do_work(&tempVar);
}

do_work(int *globalVar) {
  use_globalVar_1(globalVar);
  use_globalVar_2(globalVar);
}

void use_globalVar_1(int *globalVar) {
   //...
}

void use_globalVar_2(int *globalVar) {
   //...
}

...
AddMTData(Data, integer(self));
_hi_onEvent(THIMultiElementEx(FParent).Events[Index],Data);
...

Add(MultiElementEx,484487,280,119)
{
}
BEGIN_SDK
  Add(EditMultiEx,14847170,3,3)
  {
   EventCount=#11:onEventData|
   DataCount=#4:Self|
   Width=293
   Height=130
  }
  Add(DoData,1259221,112,70)
  {
   link(onEventData,14847170:onEventData,[(213,76)(213,9)])
   link(Data,14847170:Self,[(118,18)(9,18)])
  }
END_SDK