Add(MainForm,11251368,49,105)
{
 Height=345
 Position=1
}
Add(KeyEvent,11865620,686,70)
{
 Code=37
 Ctrl=1
 Shift=1
 link(Handle,7496438:Var2,[])
}
Add(If_else,14344139,588,70)
{
 Op2=String( )
 link(onTrue,11773718:doEvent1,[])
}
Add(Hub,11773718,637,70)
{
 link(onEvent1,11865620:doPress,[])
 link(onEvent2,6828392:doPress,[])
}
Add(GetDataEx,7496438,679,42)
{
 link(Data,4322392:Var,[])
}
Add(ClipboardHook,13949229,49,161)
{
 Point(Handle)
 link(onChange,15414925:doModify,[])
}
Add(StrCase,15414925,98,161)
{
 Type=2
 link(onModify,9226746:doReplace,[])
}
Add(RichEdit,11094424,539,63)
{
 Left=10
 Top=15
 Width=370
 Height=200
 Color=16777215
 Font=[Courier New,10,0,0,204]
 Ctl3D=0
 ScrollBars=3
 InsertCRLF=1
 Point(onChar)
 Point(doSetSelect)
 Point(Handle)
 link(onChar,14344139:doCompare,[])
}
Add(LineBreak,3694027,560,140)
{
 Type=1
 link(Data,12261391:Var2,[])
 Primary=[4322392,126,-119]
}
Add(Button,1174998,441,231)
{
 Left=320
 Top=225
 Width=60
 Caption="RUN"
 Data=String(;255;1)
 link(onClick,5300624:doEvent1,[])
}
Add(KeyEvent,6828392,735,77)
{
 Code=67
 Ctrl=1
 link(Handle,11516228:Var2,[])
}
Add(KeyEvent,9256797,770,119)
{
 Code=39
 link(Handle,11516228:Var3,[(776,65)])
}
Add(VBScript,5879853,203,161)
{
 WorkPoints=#6:doRead|
 EventPoints=#5:onYes|4:onNo|
 DataPoints=#6:Color1|
 Script=#27:function doWork(Data,Index)|12:names = Data|18:'Col = GetData(0) |18: select case names|145:   case "Sub","Function","End","Case","Select","If","Then","Else","For","Each","Next","Loop","While","Wend","Do"  : onEvent "onYes", names + " " |15:   Beep 250, 50|34:   case else   onEvent "onNo", " "|13: end select  |3:end|
 link(onYes,7983484:doValue,[])
 link(onNo,6469745:In,[(249,174)(249,223)])
}
Add(LineBreak,9968670,721,119)
{
 link(Out,9256797:doPress,[])
 Primary=[6469745,-455,98]
}
Add(GetDataEx,11516228,728,56)
{
 link(Data,7496438:Var3,[(741,51)])
}
Add(KeyEvent,5675215,609,161)
{
 Code=66
 Ctrl=1
 link(Handle,12261391:Var3,[(615,128)])
}
Add(Replace,9226746,147,161)
{
 SubStr=" "
 link(onReplace,5879853:doRead,[])
}
Add(Hub,5634522,315,161)
{
 link(onEvent1,4097776:doWork2,[])
 link(onEvent2,2671599:doTimer,[])
}
Add(Timer,2671599,364,168)
{
 Interval=10
 Enable=1
 AutoStop=1
 link(onTimer,3621070:doEvent1,[])
}
Add(Memory,7983484,266,161)
{
 link(onData,5634522:doEvent1,[])
}
Add(DoData,6680510,462,168)
{
 link(onEventData,11094424:doSetSelect,[(513,174)(513,104)])
 link(Data,7983484:Value,[(468,156)(405,156)(405,207)(272,207)])
}
Add(Hub,3621070,413,168)
{
 link(onEvent1,6680510:doData,[])
 link(onEvent2,4097776:doWork3,[(536,181)])
}
Add(HubEx,4097776,532,154)
{
 link(onEvent,5675215:doPress,[])
}
Add(VBScript,14920125,623,231)
{
 WorkPoints=#11:##SetScript|6:doWork|
 Script=#
}
Add(DoData,14924917,539,231)
{
 link(onEventData,14920125:##SetScript,[])
 link(Data,11094424:Text,[])
}
Add(Hub,5300624,490,231)
{
 link(onEvent1,14924917:doData,[])
 link(onEvent2,14920125:doWork,[])
}
Add(Memo,9605290,98,91)
{
 Left=10
 Top=220
 Width=300
 Strings=#28:Function doWork (Data,Index)|12: Beep 250,50|4:End |
}
Add(GetDataEx,12261391,553,119)
{
 link(Data,11094424:Handle,[])
}

procedure THIWinList._work_doSetSelect;
begin
   Control.Selection := ToString(_Data);
end;