------------ Дoбавленo в 17.05:
Вот вариант, где можно кпировать не только строку, но и чистые двоичные данные. При небольшой доработка можно копировать из любого места
Add(MainForm,2953706,245,217)
{
}
Add(Button,3795368,245,273)
{
Left=55
Top=10
Caption="23 byte"
link(onClick,12831870:doExecute,[])
}
Add(ODialog,12831870,294,273)
{
link(onExecute,14622334:doEvent1,[])
}
Add(FileStream,12653566,385,280)
{
link(onLoad,13583552:doCopy,[])
}
Add(Edit,2575560,539,280)
{
Left=120
Top=10
Width=195
}
Add(StreamCopy,13583552,434,280)
{
Count=23
link(onCopy,10949001:doConvert,[])
link(Dest,12651909:Var2,[])
}
Add(MemoryStream,7273594,434,217)
{
}
Add(Hub,14622334,343,273)
{
OutCount=3
link(onEvent1,7273594:doClear,[(372,279)(372,230)])
link(onEvent2,12653566:doOpen,[])
link(onEvent3,12653566:doClose,[])
}
Add(StreamConvertor,10949001,483,280)
{
Mode=6
link(onResult,2575560:doText,[])
link(Data,12651909:Var3,[(489,264)])
}
Add(GetDataEx,12651909,434,259)
{
link(Data,7273594:Stream,[])
}