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