procedure THIVBJScript._DoWork;
var Disp:IDispatch; dt,idx:TVariantArg;
begin
  if FEngine = nil then Exit;
  FEngine.GetScriptDispatch(nil, Disp);
  if Disp = nil then Exit; 

uses Kol,Share,Windows,Debug,ActiveX;
...
function THIThread.Execute(Sender:PThread): Integer;
begin
    CoInitialize(nil);
    FStop := false;
    repeat
       sleep(_prop_delay);
       _hi_OnEvent(_event_onExec);
       if Assigned(_event_onSyncExec.Event) then Sender.Synchronize(SyncExec);
    until Sender.Terminated or _prop_FastStop or FStop;
    Sender.Tag := 0;
    CoUninitialize;
    Result := 0;
end;

Add(MultiElementEx,14825340,259,175)
{
 Mode=1
}
BEGIN_SDK
  Add(EditMultiEx,12582104,3,3)
  {
   WorkCount=#5:##add|
   Point(##add)
   link(##add,1551462:doWork,[(29,9)(29,41)])
  }
  Add(VBJScript,1551462,56,35)
  {
   WorkPoints=#6:doWork|
   Script=#27:Function doWork(Data,Index)|13: MsgBox "OK!"|12:End Function|
  }
END_SDK
Add(Button,15231113,133,175)
{
 Left=40
 Top=60
 Width=75
 Caption="Error"
 link(onClick,5240250:doStart,[])
}
Add(Thread,5240250,196,175)
{
 FastStop=0
 link(onExec,14825340:##add,[])
}

Add(Button,3690514,161,168)
{
 Left=110
 Top=175
 link(onClick,9416562:doStart,[])
}
Add(ChildPanelEx,9416562,238,168)
{
}
BEGIN_SDK
  Add(EditMultiEx,11495718,3,3)
  {
   WorkCount=#7:doStart|
   Width=391
   Height=193
   link(doStart,5240250:doStart,[(43,9)(43,27)])
  }
  Add(Panel,228887,35,105)
  {
   Left=35
   Top=105
   Point(doColor)
  }
  Add(MultiElementEx,57829,308,21)
  {
   Mode=1
  }
  BEGIN_SDK
    Add(EditMultiEx,12582104,3,3)
    {
     WorkCount=#5:##add|8:##delete|
     Point(##add)
     Point(##delete)
     link(##add,1551462:doWork,[(29,9)(29,41)])
    }
    Add(VBJScript,1551462,56,35)
    {
     WorkPoints=#6:doWork|
     Script=#27:Function doWork(Data,Index)|13: MsgBox "OK!"|12:End Function|
    }
  END_SDK
  Add(Thread,5240250,77,21)
  {
   FastStop=0
   link(onExec,10059412:doEvent1,[])
  }
  Add(DoData,11455944,231,42)
  {
   Data=Integer(0)
   link(onEventData,57829:##delete,[(285,48)(285,34)])
  }
  Add(Hub,10059412,147,21)
  {
   link(onEvent1,57829:##add,[])
   link(onEvent2,11455944:doData,[(205,34)(205,48)])
  }
END_SDK

Add(MultiElementEx,57829,140,21)
{
 Mode=2
}
BEGIN_SDK
  Add(EditMultiEx,12582104,3,3)
  {
   WorkCount=#2:Do|
   link(Do,1551462:doWork,[(29,9)(29,41)])
  }
  Add(VBJScript,1551462,56,35)
  {
   WorkPoints=#6:doWork|
   Script=#27:Function doWork(Data,Index)|13: MsgBox "OK!"|12:End Function|
  }
END_SDK
Add(Thread,5240250,77,21)
{
 FastStop=0
 link(onExec,57829:Do,[])
}