Add(MainForm,2953706,224,140)
{
 Width=481
 link(onCreate,5185348:doReplace,[])
}
Add(RE_Replace,5185348,294,154)
{
 Expression="/\B(?=(\d{3})+(?!\d))/g"
 ReplaceStr="" ""
 link(onReplace,7431806:doText,[])
 link(SourceStr,13162034:Text,[])
}
Add(StrList,13162034,294,91)
{
 Strings=#24:тысяча 1000, тысяча 1000|38:десять тысяч 10000, десять тысяч 10000|34:сто тысяч 100000, сто тысяч 100000|32:миллион 1000000, миллион 1000000|52:десять миллионов 10000000, десять миллионов 10000000|48:сто миллионов 100000000, сто миллионов 100000000|
}
Add(Memo,7431806,357,133)
{
 Left=10
 Top=10
 Width=445
 Height=245
}