anchor.diff:  
   
   // Here we define the action name values
  -function TKMKeyLibrary.GetFunctionNameById(aValue: Integer): string;
  -begin
  -  case aValue of
  +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];
  
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:     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;
  
  