Кстати, вот такой вариант с кирилицой дружит (при русской раскладке клавы в программе):
Add(MainForm,13246011,413,217)
{
Width=160
Height=190
}
Add(RichEdit,1275108,490,154)
{
Top=5
Width=95
Height=100
Strings=#19:ggg русский hhh jjj|
Point(SelText)
Point(doSetSelect)
}
Add(Button,6959507,469,217)
{
Top=125
Width=95
link(onClick,2154219:doCharset,[])
}
Add(FormatStr,5644284,553,217)
{
DataCount=1
Mask="vvv%1vvv"
link(onFString,16151585:doEvent1,[])
}
Add(Edit,7486348,630,224)
{
Top=105
Width=95
}
Add(Hub,16151585,595,217)
{
link(onEvent1,1275108:doSetSelect,[(621,223)(621,131)(478,131)(478,195)])
link(onEvent2,7486348:doText,[])
}
Add(Charset,2154219,511,217)
{
Type=8
link(onCharset,5644284:doString,[])
link(Text,1275108:SelText,[])
}