anchor.diff:    end;
   end;
   
  -procedure TfmKeys.DoUpdate;
  +procedure TfmKeys.UpdateState;
   var
     Item: TATKeymapItem;
     SDesc: string;
  
positive.code:   private
      { private declarations }
      FKeyPressed: integer;
      procedure DoAddKey(var K: TATKeyArray);
      procedure DoUpdate;
      function GetHotkey: integer;
      procedure Localize;
    public
  
negative.code:   //OK btn needs confirmtion
    panelBtn.OKButton.ModalResult:= mrNone;
  
    UpdateState;
  
    //if no hotkeys, user wants to add it, so auto-press Extend here
    if (Keys1.ToString='') and (Keys2.ToString='') then
  