Add(InlineCode,7330169,217,273)
{
 WorkPoints=#6:doTest|
 EventPoints=#6:onTrue|7:onFalse|
 DataPoints=#3:int|
 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|20:   onTrue:THI_Event;|21:   onFalse:THI_Event;|17:   int:THI_Event;|45:   procedure doTest(var dt:TData;Index:Word);|5: end;|0:|14:implementation|29:procedure THiAsmClass.doTest;|5:begin|148:if (ReadInteger(dt, int) mod 2) = 0 then _hi_CreateEvent(dt,@onTrue, ReadInteger(dt, int)) else _hi_CreateEvent(dt,@onFalse, ReadInteger(dt, int)); |4:end;|0:|4:end.|
 link(onTrue,4271572:doAdd,[])
 link(onFalse,10630644:doAdd,[(262,286)(262,335)])
 link(int,13628945:Text,[])
}
Add(Button,15438455,154,273)
{
 Left=140
 Top=225
 link(onClick,7330169:doTest,[])
}
Add(Edit,13628945,217,217)
{
 Left=25
 Top=225
 Width=105
 Text=""
}
Add(ListBox,4271572,280,273)
{
 Left=10
 Top=10
 Width=85
 Height=200
}
Add(ListBox,10630644,280,329)
{
 Left=110
 Top=10
 Width=90
 Height=200
}