Add(MainForm,8593311,77,84)
{
 Width=898
 Height=551
 Caption="Пример проблемы с кириллицей"
}
Add(RichEdit,5282393,336,147)
{
 Left=5
 Top=35
 Width=805
 Height=235
 ScrollBars=3
 link(onChange,8783507:doEvent1,[(380,153)(380,189)(303,189)(303,209)])
 link(Str,1491810:Var2,[])
}
Add(ArrayEnum,15274287,350,217)
{
 link(onItem,14757344:doEvent1,[])
 link(Array,5282393:Array,[])
}
Add(Memo,14842045,518,217)
{
 Left=815
 Top=35
 Width=60
 Height=235
 ScrollBars=2
}
Add(Hub,8783507,315,203)
{
 OutCount=3
 link(onEvent1,14842045:doClear,[(507,209)(507,230)])
 link(onEvent2,1603189:doClear,[(495,216)(495,279)])
 link(onEvent3,15274287:doEnum,[])
}
Add(Length,13614396,441,217)
{
 link(onLength,14842045:doAdd,[])
}
Add(For,1394810,217,84)
{
 End=20
 InData=0
 link(onEvent,8796751:doData,[])
 link(onStop,5282393:doAdd,[(272,97)(272,153)])
}
Add(StrCat,2411114,343,84)
{
 Point(doClear)
 link(Str1,1491810:Var1,[(349,72)(337,72)(337,128)])
}
Add(GetDataEx,1491810,336,123)
{
 Angle=1
 link(Data,2411114:Result,[(349,128)])
}
Add(DoData,8796751,287,84)
{
 Data=String(S)
 link(onEventData,2411114:doStrCat,[])
}
Add(Button,9755395,154,84)
{
 Left=5
 Top=10
 Width=375
 Caption="Добавить строку"
 link(onClick,1394810:doFor,[])
}
Add(Memo,1603189,518,266)
{
 Left=5
 Top=275
 Width=810
 Height=235
 ScrollBars=3
}
Add(Hub,14757344,392,217)
{
 link(onEvent1,13614396:doLength,[])
 link(onEvent2,1603189:doAdd,[(417,230)(417,272)])
}