#pas
    property Selection: String read GetSelection write SetSelection;
    // |<#edit>
    //   |<#memo>
    //   |<#richedit>
    //    Selected text (editbox, richedit) as string. Can be useful to replace
    //    selection. For rich edit, use RE_Text[ reText, TRUE ], if you want to
    //   read correctly characters from another locale then ANSI only. }

Add(MainForm,2953706,196,140)
{
}
Add(RichEdit,951536,140,63)
{
 Left=195
 Top=80
 Point(Position)
}
Add(Timer,7931780,91,140)
{
 Interval=10
 link(onTimer,2930750:doData,[])
}
Add(DoData,2930750,140,140)
{
 link(onEventData,2953706:doCaption,[])
 link(Data,951536:Position,[(146,120)(167,120)])
}

7228 lines, 0.12 seconds, 57904 bytes code, 2293 bytes data.

MD5
99F6681975490F5CBB24DAAB2A497316