anchor.diff:  //Focus next focusable control on this Panel
   procedure TKMPanel.FocusNext;
   begin
  -  if (FocusedControlIndex >= 0) and (FocusedControlIndex < ChildCount) then
  +  if InRange(FocusedControlIndex, 0, ChildCount - 1) then
     begin
       Childs[FocusedControlIndex].IsMarkedToUnfocus := True;
       fCollection.UpdateFocus(Self);
  
positive.code:     destructor Destroy; override;
      function AddChild(aChild: TKMControl): Integer;
      procedure FocusNext;
      procedure Paint; override;
    end;
  
  
negative.code:     //Check for focusable controls
      for I := 0 to C.ChildCount - 1 do
        if IsFocusAllowed(C.Childs[I]) and (
          (C.FocusedControlIndex = -1)                          // If FocusControl was not set (no focused element on panel)
          or (C.FocusedControlIndex = C.Childs[I].ControlIndex) // We've found last focused Control
          or (CtrlToFocusI <> -1)) then                         // We did find last focused Control on previos iterations
        begin
          if C.Childs[I].IsMarkedToUnfocus then
          begin
  