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