Add(Copy,13710177,245,133)
{
 Count=1
 link(onCopy,7650941:doAdd,[(289,139)(289,132)])
 link(Str,11928015:Var3,[(251,89)])
}
Add(MainForm,2953706,21,105)
{
}
Add(Edit,2122,168,42)
{
 Left=165
 Top=35
 Align=2
 Text="00000000"
 DataType=1
 MaxLenField=8
}
Add(Memo,495341,91,126)
{
 Top=20
 Width=210
 Height=242
 Align=1
 link(onChange,695475:doLength,[(139,132)(139,111)])
}
Add(Memo,7650941,301,126)
{
 Left=210
 Top=20
 Width=174
 Height=242
 Align=5
}
Add(For,659678,203,133)
{
 End=7
 link(onEvent,13710177:doCopy,[])
 link(End,695475:Result,[(216,121)(191,121)(191,149)(160,149)])
}
Add(Length,695475,154,105)
{
 link(onLength,659678:doFor,[(198,111)(198,139)])
 link(Str,11928015:Var1,[(160,89)])
}
Add(GetDataEx,11928015,168,84)
{
 link(Data,2122:Text,[])
}

Add(MainForm,12443418,238,182)
{
 link(onCreate,11016746:doEnum,[])
}
Add(Edit,2122,308,112)
{
 Left=165
 Top=35
 Align=2
 Text="0000000000"
 MaxLenField=8
}
Add(Memo,7650941,378,196)
{
 Left=210
 Top=20
 Width=174
 Height=242
 Align=5
}
Add(Str_Enum,11016746,308,196)
{
 Delimiter=""
 link(onEnum,7650941:doAdd,[])
 link(String,2122:Text,[])
}