#pas
type
  TClassFTCG_Tools_8EA8A50 = class(TFTCG_Tools_EM)
    private
      flag1:boolean;
      ftimer1:PMMTimer;
      fautostop1:integer;
      autostopdef1:integer;
      procedure myProc(var myvar:integer);
      begin
      end;