Add(MainForm,2953706,70,112)
{
 link(onCreate,7379199:doFor,[])
}
Add(Memo,2540819,196,49)
{
 Left=30
 Top=20
 Width=280
 Color=280
 Ctl3D=280
 Strings=#21:123354897654213198459|
}
Add(Copy,13965955,196,126)
{
 Count=3
 link(onCopy,2704367:doAdd,[])
 link(Str,2540819:Text,[])
}
Add(ListBox,2704367,259,126)
{
 Left=150
 Top=110
 Height=150
}
Add(For,7379199,133,126)
{
 Start=1
 End=20
 Step=3
 link(onEvent,13965955:doCopy,[])
}

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|170:for i:=0 to Round(Length(ToStringEvent(str)) / ToIntegerEvent(Count)) 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)
}