Add(MainForm,9639114,154,245)
{
 Left=20
 Top=105
 Width=313
 Height=174
 link(onCreate,10705067:doString,[])
}
Add(Memo,2796738,350,168)
{
 Height=135
 Strings=#1:1|1:2|1:3|1:4|1:5|1:6|1:7|1:8|1:9|
}
Add(ListBox,1299548,518,259)
{
 Left=70
 Top=60
 Width=220
 Height=30
 Strings=#9:Настоящее|
}
Add(ArrayEnum,11858575,364,266)
{
 link(onItem,5502751:doCompare,[(426,272)(426,258)])
 link(Array,2796738:Array,[])
}
Add(FormatStr,10705067,224,259)
{
 DataCount=1
 Mask="*%1*"
 link(onFString,4164769:doEvent1,[])
 link(Str1,3456715:Text,[])
}
Add(StrMask,5502751,455,252)
{
 Point(doMask)
 link(onTrue,1299548:doAdd,[])
}
Add(Hub,4164769,294,259)
{
 link(onEvent1,5502751:doMask,[])
 link(onEvent2,11858575:doEnum,[])
}
Add(Edit,3456715,224,182)
{
 Left=155
 Top=10
 Text="5"
}
Add(Edit,15431631,567,175)
{
 Left=70
 Top=40
 Width=220
 Text="Ближайшее предыдущее числу 5 будет 4"
}
Add(Edit,10843315,567,357)
{
 Left=70
 Top=90
 Width=220
 Text="Ближайшее будующее числу 5 будет 6"
}
Add(Label,1741903,273,133)
{
 Left=80
 Top=120
 Width=190
 Height=17
 Caption="Как это можно сделоть программно"
}