Add(RichEdit,4948883,203,105)
{
 Left=15
 Top=50
 Width=350
 Height=70
 Point(SelText)
}
Add(Button,12712333,133,168)
{
 Left=45
 Top=125
 Width=275
 Caption="Копировать выделенный текст"
 link(onClick,2141860:doData,[])
}
Add(DoData,2141860,224,168)
{
 link(onEventData,16716670:doAdd,[])
 link(Data,4948883:SelText,[])
}
Add(RichEdit,16716670,280,168)
{
 Left=15
 Top=150
 Width=350
 Height=190
}
Add(Label,3443926,137,98)
{
 Left=20
 Top=25
 Width=308
 Height=17
 Caption="Если текст напечатан в поле и выделена часть -копируется"
}
Add(Label,7872898,140,56)
{
 Left=20
 Top=5
 Width=312
 Height=17
 Caption="Если вставлен текст из вне С+V и выделить - не копируется"
}