anchor.diff:  begin
     inherited;
     for I := 0 to ChildCount - 1 do
  -    //if Assigned(Childs[I].fOnControlMouseUp) then
       Childs[I].ControlMouseUp(Sender, Shift);
   end;
   
  
positive.code: procedure TKMPanel.Init;
  begin
    ResetFocusedControlIndex;
    //fOnControlMouseDown := ControlMouseDown;
    //fOnControlMouseUp := ControlMouseUp;
  end;
  
  
  
negative.code: begin
    inherited;
    for I := 0 to ChildCount - 1 do
      Childs[I].ControlMouseDown(Sender, Shift);
  end;
  
  