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