[ENABLE]
{$lua}
  local _, counter, _, async = memrec.Description:match('(Cunt.=.)(%d*).*(Async.=.)(%w*)')
  memrec.Async = async == 'true'
  for i = 1, counter do end
  local currentTime = os.date("%c"):gsub('/','.')
  print('Finish record:' .. memrec.Description..', at time ' .. currentTime)
  memrec.Active = false

  function onMemRecPostExecute(memoryrecord, newState, succeeded)
   if (memoryrecord == memrec and newState == true) then
     memrec.Active = false
   end
  end
{$asm}
[DISABLE]

[ENABLE]
{$Lua}
  function threadFunction(th)
    th.freeOnTerminate(false)
    th.Name = 'myThread'
    for b = 1, 200000000 do
      --checkSynchronize()
    end
    --while not th.Terminated do
    --  myvar=myvar+1
    --  synchronize(function() MainForm.Caption = 'myvar '..myvar end)
     -- sleep(2000)
    --end
    synchronize(function() print("1") end)
  end

  --myvar=0
  local myThread = createNativeThreadSuspended(threadFunction)
  myThread.resume()
{$Asm}

[DISABLE]
{$Lua}
  if myThread then
     myThread.terminate()
     myThread.waitfor()
     myThread.destroy()
     myThread=nil
  end
{$Asm}