anchor.diff:      property TxtInfo: TKMMapTxtInfo read GetTxtInfo;
       property BigDesc: UnicodeString read GetBigDesc write SetBigDesc;
       property InfoAmount: TKMMapInfoAmount read fInfoAmount;
  -    property Path: string read fPath;
  +    property Dir: string read fDir;
       property MapFolder: TKMapFolder read fMapFolder;
       property FileName: UnicodeString read fFileName;
       function FullPath(const aExt: string): string;
  
positive.code:   inherited Create;
  
    fTxtInfo := TKMMapTxtInfo.Create;
    fPath := ExeDir + MAP_FOLDER[aMapFolder] + PathDelim + aFolder + PathDelim;
    fFileName := aFolder;
    fMapFolder := aMapFolder;
  
  
negative.code:    Lock;
     try
       Assert(InRange(aIndex, 0, fCount - 1));
       KMDeleteFolder(fMaps[aIndex].Dir);
       fMaps[aIndex].Free;
       for I  := aIndex to fCount - 2 do
         fMaps[I] := fMaps[I + 1];
  