anchor.diff:      destructor Destroy; override;
       function AddChild(aChild: TKMControl): Integer;
       procedure FocusNext;
  +    procedure ResetFocusedControlIndex;
       procedure Paint; override;
     end;
   
  
positive.code:     end;
  
      if (fCtrlFocus <> nil) and Assigned(fCtrlFocus.fOnFocus) then
        fCtrlFocus.fOnFocus(False);
    end;
  
    fCtrlFocus := aCtrl;
  
negative.code: 
  procedure TKMPanel.Init;
  begin
    ResetFocusedControlIndex;
    OnControlMouseDown := ControlMouseDown;
    OnControlMouseUp := ControlMouseUp;
  end;
  
  
  procedure TKMPanel.ResetFocusedControlIndex;
  begin
    FocusedControlIndex := -1;
  end;
  
  
  destructor TKMPanel.Destroy;
  var I: Integer;
  begin
  