#pas
interface

uses Kol,Share,Debug;

type
  THIMMTimer = class(TDebug)
   private
    flag:boolean;
    FTimer:PMMTimer;
    AutoStop:integer;
    AutoStopDEF:integer;
    procedure SetInterval(Value:integer); ----- ВОТ ЭТИ ПРОЦЕДУРЫ как их обьявить в FTCG?
    procedure SetEnable(Value:boolean);
    procedure SetResolution(Value:integer);
    procedure SetAutoStop(Value:integer);
    procedure OnTimer(Obj:PObj);
    procedure OnStop;
   public
    _event_onTimer:THI_Event;
    _event_onStop:THI_Event;

#hws
func init()

//создаем переменные
lng.decl_priv_var(flag, 'boolean')
lng.decl_priv_var(FTimer, 'PMMTimer')
lng.decl_priv_var(fAutoStop, 'integer')
lng.decl_priv_var(AutoStopDEF, 'integer')

//события таймера
func OnTimer()

lng.decl_loc_var(Obj, 'PObj')
event(onTimer)

end

//конструктор
block.select(BLK_CREATE)
println (FTimer, ' := NewMMTimer(1000);')
println (FTimer,'.Enabled := true;')
println (FTimer,'.OnTimer := ',OnTimer,';')
println (flag,' := false;')

end