AdvToolBar.Pas: absent a line of code

VCL TMS VCL UI Pack
1

Hi

In
AdvToolBar.pas / function TCustomAdvToolBarStyler.GetToolBarPager: TAdvToolBarPager
absent a line of code for example
Inc(i)

"
function TCustomAdvToolBarStyler.GetToolBarPager: TAdvToolBarPager;
var
  i: integer;
  ctrl: TCustomControl;

begin
  i := 0;
  Result := nil;

  while (i < FControlList.Count) do
  begin
    ctrl := TCustomControl(FControlList);
    if (ctrl is TAdvToolBarPager) then
    begin
      Result := ctrl as TAdvToolBarPager;
      Break;
    end;
    inc(i);
  end;
end;
"

If not this line, this is a neverending loop.

This apply in new TMS CP 7.1.0.0