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,[])
}