Add(MainForm,2953706,98,112)
{
 Caption="Пример использования StrCase"
}
Add(Edit,12980779,154,112)
{
 Left=175
 Top=45
 Text="HiAsm"
}
Add(Button,517459,98,168)
{
 Left=170
 Top=95
 link(onClick,13676532:doModify,[])
}
Add(Label,1634708,210,168)
{
 Left=5
 Top=155
 Width=380
 Height=36
 Font=[MS Sans Serif,20,0,0,1]
 Caption="!"
 AutoSize=1
 Alignment=2
}
Add(StrCase,13676532,154,168)
{
 link(onModify,1634708:doText,[])
 link(Str,12980779:Text,[])
}