#pas
type
  TClassFTCG_Tools_8EACBA0 = class(TFTCG_Tools_EM)
    private
      
      function readData(index:word):TData;
      function readDataInt(index:word):integer;
      function readDataStr(index:word):string;
      function readDataReal(index:word):real;
      arr3:array[0..1363] of integer;
 
    public
      
      constructor Create(_Control:PControl);
      destructor Destroy; override;
      procedure event_doData(var Data:TData; index:word);
  end;
  
  function Create_hiFTCG_Tools_8EACBA0(Control:PControl):TFTCG_Tools_EM;

implementation