#pas
procedure __hi_OnEvent(const PointEvent:THI_Event;var Data:TData);
var P:PHI_Event;
begin
  P := @PointEvent;
  while Assigned(P.Event) do begin
    {$ifdef _DEBUG_}CallEvent(2,P^,Data);{$endif}
    P.Event(Data,P.Index);                         //а потом ТУТА
    if(Data.data_type and $80)=0 then break;
    dec(Data.data_type,$80);
    P := PHI_Event(Data.next);                     //сначала ЗДЕСЯ
  end;
end;

Add(MainForm,2953706,343,133)
{
}
Add(Button,12545460,112,126)
{
 Left=200
 Top=105
 link(onClick,11928653:doWork2,[])
}
Add(Edit,5116022,273,63)
{
 Left=200
 Top=70
 Text="99995"
 Alignment=1
}
Add(If_else,4885337,266,126)
{
 Type=3
 link(onTrue,11928653:doWork1,[(305,132)(305,118)(172,118)])
 link(onFalse,2953706:doCaption,[])
 link(Op2,5116022:Text,[])
}
Add(Counter,6657830,196,126)
{
 Max=100000
 link(onNext,4885337:doCompare,[])
}
Add(HubEx,11928653,168,126)
{
 link(onEvent,6657830:doNext,[])
}

#pas
procedure THIConvertor._work_doConvert12(var _Data:TData; Index:word);//StrToStream
var S:string;
    St:PStream;
    len:cardinal;
begin
  S := ReadString(_Data,_data_Data);
  St := NewMemoryStream;
  len := Length(S);
  if len > 0 then St.Write(s[1],len);
  St.Position := 0;
  _hi_OnEvent(_event_onResult,St);
  St.free;
end;

#pas
  ....
  if Rslt = SOME_ERROR_CODE then // Условно
  begin
    _hi_CreateEvent(_Data, @_event_onError, Rslt); // Поскольку мы всё равно завершаемся, то нам не нужно дожидаться окончания обработки события
    Exit;
  end;
  ....

#pas
function Foo():Integer; assembler;
asm

end;