anchor.diff:      property Count: Integer read fCount;
       function GetKeyName(aKey: Word): string;
       function GetKeyNameById(aId: Word): string;
  -    function GetFunctionNameById(aValue: Integer): string;
  +    function GetFunctionNameById(aId: Integer): string;
       property Keys[aIndex: Word]: Integer read GetKeys write SetKeys; default;
       procedure LoadKeymapFile;
       procedure ResetKeymap;
  
positive.code: 
  
  // Here we define the action name values
  function TKMKeyLibrary.GetFunctionNameById(aValue: Integer): string;
  begin
    case aValue of
      0:  Result :=  gResTexts[TX_KEY_FUNC_SCROLL_LEFT];
      1:  Result :=  gResTexts[TX_KEY_FUNC_SCROLL_RIGHT];
      2:  Result :=  gResTexts[TX_KEY_FUNC_SCROLL_UP];
  
negative.code:     112: Result := gResTexts[TX_KEY_FUNC_UNASSIGNABLE];
      113: Result := gResTexts[TX_KEY_FUNC_UNASSIGNABLE];
    else
      Result := gResTexts[TX_KEY_FUNC_UNKNOWN] + ' ' + IntToStr(aId) + '! ~~~';
    end;
  end;
  
  