procedure TClassFTCG_Tools_1A891E0.event_doCompare(var Data:TData; index:word);
var
  i1:integer;
  i2:integer;
begin
  
  for i1 := 100000 to 1 do
  begin
    for i2 := 1 to 18 do
    begin
      if((i2 >= 11) and (i2 <= 16) )then
      begin
        val6 := 0;
      end
      else
      begin
        if i2 = 17 then
        begin
          val6 := 1;
        end;
      end;
    end;
  end;
  _hi_onEvent(THIFTCG_Tools(FParent).Events[0]);
end;