Add(MainForm,8593311,112,147)
{
 Width=898
 Height=551
 Caption="Пример проблемы с кириллицей"
}
Add(RichEdit,5282393,371,210)
{
 Left=5
 Top=35
 Width=805
 Height=235
 ScrollBars=3
 link(onChange,8783507:doEvent1,[(415,216)(415,252)(338,252)(338,272)])
 link(Str,1491810:Var2,[])
}
Add(Memo,14842045,553,280)
{
 Left=815
 Top=35
 Width=60
 Height=235
 ScrollBars=2
}
Add(Hub,8783507,350,266)
{
 OutCount=3
 link(onEvent1,14842045:doClear,[(542,272)(542,293)])
 link(onEvent2,1603189:doClear,[(530,279)(530,342)])
 link(onEvent3,9627760:doEnum,[(376,286)(376,352)(331,352)(331,419)])
}
Add(Length,13614396,476,280)
{
 link(onLength,14842045:doAdd,[])
}
Add(For,1394810,252,147)
{
 End=20
 InData=0
 link(onEvent,8796751:doData,[])
 link(onStop,5282393:doAdd,[(307,160)(307,216)])
}
Add(StrCat,2411114,378,147)
{
 Point(doClear)
 link(Str1,1491810:Var1,[(384,135)(372,135)(372,191)])
}
Add(GetDataEx,1491810,371,186)
{
 Angle=1
 link(Data,2411114:Result,[(384,191)])
}
Add(DoData,8796751,322,147)
{
 Data=String(S)
 link(onEventData,2411114:doStrCat,[])
}
Add(Button,9755395,189,147)
{
 Left=5
 Top=10
 Width=375
 Caption="Добавить строку"
 link(onClick,1394810:doFor,[])
}
Add(Memo,1603189,553,329)
{
 Left=5
 Top=275
 Width=810
 Height=235
 ScrollBars=3
}
Add(Hub,14757344,427,280)
{
 link(onEvent1,13614396:doLength,[])
 link(onEvent2,1603189:doAdd,[(452,293)(452,335)])
}
Add(Str_Enum,9627760,343,413)
{
 Delimiter="\r"
 link(onEnum,3584474:doReplace,[])
 link(String,5282393:Text,[(349,327)(377,327)])
}
Add(Replace,3584474,413,413)
{
 SubStr="\n"
 link(onReplace,14757344:doEvent1,[(457,419)(457,353)(415,353)(415,286)])
}