Add(FTCG_Tools,7811766,238,119)
{
}
BEGIN_SDK
  Add(EditMultiEx,9283555,49,49)
  {
   WorkCount=#5:doFor|
   EventCount=#5:onAdd|
   Width=307
   Height=151
   link(doFor,9870217:doFor,[(72,55)(72,97)])
  }
  Add(FT_For,9870217,84,91)
  {
   End=10
   Start=1
   link(onEvent,7582097:doEvent1,[])
  }
  Add(FT_Hub,7582097,133,91)
  {
   link(onEvent1,2949249:doStrCat,[])
   link(onEvent2,2255284:doCompare,[(154,104)(154,146)])
  }
  Add(FT_StrCat,2949249,280,91)
  {
   Str1="FIRST_FOR - "
   link(onStrCat,3423011:doWork2,[])
  }
  Add(FT_StrCat,4482643,280,140)
  {
   Str1="----SECOND_FOR - "
   link(onStrCat,3423011:doWork3,[(326,146)])
  }
  Add(HubEx,3423011,322,91)
  {
   Angle=3
   link(onEvent,9283555:onAdd,[(326,55)])
  }
  Add(FT_If_else,2255284,168,140)
  {
   Type=1
   Op2=Integer(4)
   link(onTrue,895988:doFor,[])
   link(onFalse,9870217:doStop,[(214,153)(214,182)(71,182)(71,104)])
   link(Op1,9870217:Position,[(174,132)(90,132)])
  }
  Add(FT_For,895988,231,140)
  {
   End=5
   Start=1
   link(onEvent,4482643:doStrCat,[])
  }
END_SDK

link(Op1,9870217:Position,[(174,132)(90,132)])

#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;

#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;