Add(InlineCode,6878589,308,175)
{
 WorkPoints=#4:Enum|
 EventPoints=#6:onEnum|
 DataPoints=#3:str|5:Count|
 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|31:    str,Count,OnEnum:THI_Event;|42:    procedure Enum(var dt:TData;Idx:word);|5: end;|0:|14:implementation|0:|27:procedure THiAsmClass.Enum;|14:var i:integer;|5:begin|139:for i:=0 to Length(ToStringEvent(str)) do _hi_OnEvent(onEnum,Copy(ToStringEvent(str),i * ToIntegerEvent(Count) + 1,ToIntegerEvent(Count)));|4:end;|0:|4:end.|
 link(str,15967156:Text,[])
 link(Count,876205:Value,[])
 link(onEnum,8815698:doAdd,[])
}
Add(Edit,15967156,308,91)
{
 Left=50
 Top=25
 Width=200
}
Add(Button,12232510,252,175)
{
 Left=250
 Top=25
 link(onClick,6878589:Enum,[])
}
Add(ListBox,8815698,357,175)
{
 Left=210
 Top=70
 Width=95
 Height=185
}
Add(Memory,876205,315,133)
{
 Default=Integer(3)
}