#hws
func do_in(dt)
     fvar(x,y)
     x = e_int(dt)
     //y = (x + 1) это тоже не работает!
     println(x,':= 1 + ',x,';')
 event(on_out,y) 
end

#hws
func do_in(dt)

     lng.decl_loc_var(x, 'integer')     
     println(x,' := ',e_int(dt),';')      
     println(x, ':= ',x,' * 2;')

   event(on_out,x) 
end

#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

#hws
func doCalc(dt)
lng.decl_loc_var(y, 'integer')
  println(y,' := 5;')
  event(onResult, y) 
end

#pas
procedure TClassFTCG_Tools_8EA8A50.event_doValue(var Data:TData; index:word);
var
  y1:integer;
begin
  
  y1 := 5;
  _hi_onEvent(THIFTCG_Tools(FParent).Events[0]);
end;

#hws
event(onResult, 'y'+_id_)

#hws
func do_in(dt)
println ('procedure MyProc(Arg:integer);')
println('begin')
//мой код...
println('end;')

//Затем здесь делаешь вызовы MyProc
end