anchor.diff:      keymapList: TList;
       procedure DoConfigKey(Cmd: integer);
       procedure DoFilter;
  +    function DoFindDupKeys: boolean;
       procedure DoResetKey(K: TATKeymapItem);
       function GetResultCmd: integer;
       function IsFiltered(Item: TATKeymapItem): boolean;
  
positive.code:   end;
  end;
  
  end.
  
  
negative.code:   finally
      Free
    end;
  
    DoFindDupKeys;
  end;
  
  procedure TfmCommands.DoResetKey(K: TATKeymapItem);
  