anchor.diff:  begin
     inherited;
   
  -  fCount := KEYMAP_COUNT;
     fKeymapPath := (ExeDir + 'keys.keymap');
   
     LoadKeymapFile;
  
positive.code: 
    TKMKeyLibrary = class
    private
      fCount: Integer;
      fFuncs: array [0..KEYMAP_COUNT-1] of TKMFuncInfo;
      fKeymapPath: string;
      function GetFuncs(aIndex: Word): TKMFuncInfo;
    public
      constructor Create;
      function GetKeyName(aKey: Word): string;
  
negative.code:     function GetFunctionNameById(aId: Integer): string;
      function AllowKeySet(aArea: TKMKeyArea; aKey: Word): Boolean;
      function SetKey(aId: Integer; aKey: Word): Boolean;
      function Count: Integer;
      property Funcs[aIndex: Word]: TKMFuncInfo read GetFunc; default;
      procedure LoadKeymapFile;
      procedure ResetKeymap;
      procedure SaveKeymap;
  