Add(InlineCode,16037272,469,140)
{
 WorkPoints=#6:doWork|
 EventPoints=#8:onResult|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|4:uses|28: Windows, KOL, Share, Debug;|0:|4:type|29:  THiAsmClass = class(TDebug)|11:    private|0:|10:    public|29:      onResult: THI_Event;   |54:      procedure doWork(var _Data: TData; Index: Word);|6:  end;|0:|14:implementation|0:|3:var|19:  Counter: Integer;|0:|60:procedure THiAsmClass.doWork(var _Data: TData; Index: Word);|5:begin|36: _hi_OnEvent(onResult, Random(255));|4:end;|0:|0:|0:|0:|4:end.|
}