Add(MainForm,2953706,126,49)
{
 Width=177
 link(onCreate,2449406:doEvent1,[])
}
Add(InlineCode,3484353,217,105)
{
 WorkPoints=#11:doRandomize|5:doRnd|
 EventPoints=#5:onRnd|
 DataPoints=#3:Max|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|17:   Max:THI_Event;|19:   onRnd:THI_Event;|3:   |54:   procedure doRandomize(var _Data:TData;Index:Word); |47:   Procedure doRnd(var _Data:TData;Index:Word);|5: end;|0:|14:implementation|0:|34:procedure THiAsmClass.doRandomize;|5:begin|14:    Randomize;|4:end;|0:|28:procedure THiAsmClass.doRnd;|3:var|19:   i,_Max: Integer;|6: begin|33:   _Max:= ReadInteger(_Data,Max);|35:   _hi_OnEvent(onRnd,Random(_Max));|5: end;|4:end.|
 link(Max,7616450:Value,[])
 link(onRnd,11846360:doAdd,[])
}
Add(Memory,7616450,217,21)
{
 Default=Integer(10)
}
Add(Button,7473466,126,112)
{
 Left=15
 Top=210
 link(onClick,3484353:doRnd,[])
}
Add(ListBox,11846360,273,105)
{
 Left=15
 Top=10
 Width=130
 Height=185
}
Add(Hub,2449406,168,63)
{
 link(onEvent1,11846360:doClear,[(261,69)(261,118)])
 link(onEvent2,3484353:doRandomize,[(200,76)(200,111)])
}