Add(MainForm,2953706,42,84)
{
}
Add(Str_Enum,8151451,252,189)
{
 Delimiter=""
 link(onEnum,4774241:doCase,[])
 link(String,3547387:Text,[])
}
Add(Button,15415364,175,189)
{
 Left=105
 Top=145
 Width=80
 Height=25
 Caption="перебрать"
 link(onClick,8151451:doEnum,[])
}
Add(Memo,3547387,252,133)
{
 Left=100
 Top=65
 Width=160
 Height=75
 Strings=#1:1|1:2|1:3|1:4|0:|
}
Add(Message,11046132,364,196)
{
 Message="Конец строки!"
}
Add(Case,4774241,308,189)
{
 Value=String(
)
 link(onTrue,11046132:doMessage,[])
}