{$lua}
-- прсто инфо
memrec.OnActivate = function(record, before, currentstate)
  print("OnActivate"..(before and "Before " or "After ")..(currentstate and "true" or "false"))
  return true
end
-- прсто инфо
memrec.OnDeactivate = function(record, before, currentstate)
  print("OnDeactivate"..(before and "Before " or "After ")..(currentstate and "true" or "false"))
  return true
end
-- подмена состояния
function onMemRecPostExecute(memoryrecord, newState, succeeded)
  if memoryrecord == memrec and newState then
     print('Меня активировали, но я деактивируюсь сам')
     memrec.Active = false
  end
end
{$asm}


[ENABLE]
{$lua}
  print('Состояния сейчас '..(memrec.Active and "true" or "false"))

  print('Пишу в адрес [адрес..] ... (float)10000.0')
{$asm}
// написать свой адрес
 //[адрес..]:
 // dd  (float)10000.0
 // написать свой адрес
 //[адрес..]:
 // dd  (float)10000.0
 // написать свой адрес
 //[адрес..]:
 // dd  (float)10000.0
[DISABLE]