anchor.diff:    //OK btn needs confirmtion
     panelBtn.OKButton.ModalResult:= mrNone;
   
  -  DoUpdate;
  +  UpdateState;
   
     //if no hotkeys, user wants to add it, so auto-press Extend here
     if (Keys1.ToString='') and (Keys2.ToString='') then
  
positive.code: 
  procedure TfmKeys.bAdd1Click(Sender: TObject);
  begin
    DoAddKey(Keys1);
    DoUpdate;
  end;
  
  procedure TfmKeys.bAdd2Click(Sender: TObject);
  begin
    DoAddKey(Keys2);
    DoUpdate;
  end;
  
  procedure TfmKeys.DoAddKey(var K: TATKeyArray);
  var
    newkey, index, i: integer;
  begin
  
negative.code:   end;
  end;
  
  procedure TfmKeys.UpdateState;
  var
    Item: TATKeymapItem;
    SDesc: string;
  