Tad писал(а):

Ибо его установка: вовсе не достижение конечного результата.
А -- "прокукарекать", подвинув других, тем самым, к мыслительному процессу.
Что вовсе не всегда адекватно. Но, как говорится: "а там хоть не рассветай"
Но, в данном случае, мысль его правильная. Реализуемая примерно так:

Add(MainForm,11394752,245,21)
{
Width=868
Height=591
}
Add(BlockFind,6286189,448,161)
{
IncludeBlock=1
Point(doEndBlock)
Point(doStartBlock)
Point(doStop)
link(onSearch,11112119:doEvent1,[])
}
Add(Button,13381527,245,84)
{
Left=14
Top=7
Width=104
Caption="Load FILE"
link(onClick,16620189:doExecute,[])
}
Add(Memo,11257195,406,56)
{
Left=14
Top=42
Width=400
Height=497
AddType=1
ScrollBars=2
Point(doLoad)
Point(SelText)
}
Add(Memo,11995381,539,140)
{
Left=434
Top=42
Width=400
Height=497
ScrollBars=2
}
Add(ODialog,16620189,308,84)
{
FileName="License.txt"
link(onExecute,11257195:doLoad,[])
}
Add(DoData,10753809,308,168)
{
link(onEventData,10476694:doEvent1,[])
link(Data,11257195:SelText,[(314,152)(433,152)])
}
Add(Hub,10476694,357,168)
{
OutCount=3
link(onEvent1,6286189:doEndBlock,[])
link(onEvent2,6286189:doStartBlock,[])
link(onEvent3,9794996:doStrCat,[(382,188)(382,167)])
}
Add(StrCat,9794996,399,161)
{
link(onStrCat,6286189:doSearch,[])
link(Str2,11257195:Text,[])
}
Add(Button,7288544,245,168)
{
Left=133
Top=7
Width=118
Caption="Cut to SELECT"
link(onClick,10753809:doData,[])
}
Add(Hub,11112119,497,161)
{
link(onEvent1,11995381:doText,[])
link(onEvent2,6286189:doStop,[(522,174)(522,202)(438,202)(438,188)])
}