anchor.diff:    TKMKeyLibrary = class
     private
       fKeys: TIntegerArray;
  -    FilePath: String;
  +    fKeyMapPath: string;
       function GetKeys(aIndex: Word): Integer;
       procedure LoadKeymapFile(var aArray: TIntegerArray);
     public
  
positive.code:     KeyStringList.Add(Keystring);
    end;
  
    KeyStringList.SaveToFile(FilePath{$IFDEF WDC}, TEncoding.UTF8{$ENDIF});
    KeyStringList.Free;
  end;
  
  
negative.code:   KeyString, LibKey: UnicodeString;
    I, KeyID, KeyValue, TopId, FirstDelimiter, SecondDelimiter: Integer;
  begin
    if not FileExists(fKeyMapPath) then Exit;
  
    // Load UniCode file with codepage
    LibKey := ReadTextU(fKeyMapPath, 1252);
    KeyStringArray := KeyToArray(LibKey);
  
    for I := High(KeyStringArray) downto 0 do
  