Add(MainForm,14216569,21,91)
{
 Width=298
 Position=1
}
Add(Button,5706304,168,140)
{
 Left=75
 Top=15
 Caption="Test!"
 link(onClick,6087008:doEvent1,[])
}
Add(Edit,13453822,266,91)
{
 Left=15
 Top=15
 Text="1000"
}
Add(For,6980961,259,147)
{
 Start=1
 link(onEvent,16037272:doWork,[])
 link(End,13453822:Text,[])
}
Add(Label,7779441,406,210)
{
 Left=135
 Top=20
 Width=10
 Height=17
 Caption="0"
}
Add(CounterEx,14700149,357,210)
{
 Max=999999999
 link(onNext,7779441:doText,[])
}
Add(StrCatDelim,6856616,546,147)
{
 Delimiter=": "
}
Add(InlineCode,16037272,329,147)
{
 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);|3:var|22:  OutDT, TmpDT: TData;|16:  FreeDT: PData;|5:begin|15:  Inc(Counter);|35:  // Хочу выдать в поток 2 элемента|28:  dtInteger(OutDT, Counter);|36:  dtString(TmpDT, Int2Str(Counter));|63:  CopyData(@OutDT,@TmpDT); //копия потока из unit hiMT_Add.pas;|36:  AddMTData(@OutDT, @TmpDT, FreeDT);|31:  _hi_OnEvent(onResult, OutDT);|19:  FreeData(@OutDT);|4:end;|0:|0:|0:|0:|4:end.|
 link(onResult,8683788:doEvent,[])
}
Add(ListBox,6742944,630,133)
{
 Left=15
 Top=45
 Width=260
 Height=215
}
Add(Hub,6087008,217,140)
{
 link(onEvent2,6980961:doFor,[])
}
Add(Debug,8683788,413,147)
{
}