Add(MainForm,2953706,112,105)
{
}
Add(Button,13000580,168,105)
{
 Left=20
 Top=15
 Width=95
 Caption="Create MyDir"
 link(onClick,11478614:doStrCat,[])
}
Add(Dir,3270630,273,105)
{
 link(onEnd,4129601:doMessage,[])
}
Add(StrCat,11478614,217,105)
{
 link(onStrCat,3270630:doDir,[])
 link(Str1,3270630:CurrentDir,[(223,93)(263,93)(263,151)(279,151)])
 link(Str2,9548353:Value,[])
}
Add(Memory,9548353,224,42)
{
 Default=String(MyDir)
}
Add(Message,4129601,329,105)
{
 Message="Создана папка MyDir"
}