#pas
procedure TClassFTCG_Tools_174C780.event_doFor(var Data:TData; index:word);
var
  i1:integer;
  i5:integer;
begin
  
  for i1 := 1 to 10 do
  begin
    _hi_onEvent(THIFTCG_Tools(FParent).Events[0], 'FIRST_FOR - ' + int2str(i1));
    if i1 < 4 then
    begin
      for i5 := 1 to 5 do
      begin
        _hi_onEvent(THIFTCG_Tools(FParent).Events[0], '----SECOND_FOR - ' + int2str(i5));
      end;
    end
    else
    begin
      break;
    end;
  end;
end;