Add(MainForm,2953706,161,210)
{
 link(onCreate,2416249:doEnum,[])
}
Add(StrList,14058586,238,161)
{
 Strings=#5:10001|0:|2:60|0:|2:21|
 AddHint(-58,-74,45,65,Strings)
}
Add(ArrayEnum,2416249,252,224)
{
 link(onItem,796297:doCase,[])
 link(onEndEnum,5731770:doDelete,[(296,237)(296,293)])
 link(Array,14058586:Array,[])
}
Add(Case,796297,301,224)
{
 Value=String()
 link(onNextCase,10915857:doStrCatDlm,[])
}
Add(StrCatDelim,10915857,350,224)
{
 Delimiter=";"
 link(Str1,10891290:Var3,[(356,212)(342,212)])
}
Add(Delete,5731770,336,287)
{
 Count=1
 link(onDelete,1399392:doMessage,[])
 link(Str,10891290:Var2,[])
}
Add(GetDataEx,10891290,336,259)
{
 Angle=1
 link(Data,10915857:Result,[(356,264)])
}
Add(Message,1399392,385,287)
{
 link(onMessage,2953706:doClose,[(429,293)(429,332)(151,332)(151,237)])
}