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