PTimer = ref TTimer

TTimer = object of TObject
  last, interval*: int
  callback*: TTimerCallbackProc

proc newTimer(interval: int; callback: TTimerCallbackProc): PTimer

method update(obj: PTimer)