anchor.diff:    // Asynchroniously export data
     GetOrCreateExportWorker.QueueWork(procedure
     var
  -    FullFolder, Folder: string;
  +    fullFolderPath, folderPath: string;
       I, K: Integer;
   
       sprites: TKMResSprites;
  -    SpriteID: Integer;
  -    SpritePack: TKMSpritePack;
  -    SList: TStringList;
  +    spriteID: Integer;
  +    spritePack: TKMSpritePack;
  +    sList: TStringList;
     begin
       sprites := TKMResSprites.Create(nil, nil, True);
       sprites.LoadSprites(rxTrees, False);
  -    SpritePack := sprites[rxTrees];
  -
  -    Folder := ExeDir + 'Export' + PathDelim + 'TreeAnim' + PathDelim;
  -    ForceDirectories(Folder);
  -
  -    SList := TStringList.Create;
  +    spritePack := sprites[rxTrees];
  +
  +    folderPath := ExeDir + 'Export' + PathDelim + 'TreeAnim' + PathDelim;
  +    ForceDirectories(folderPath);
  +
  +    sList := TStringList.Create;
   
       try
         for I := 0 to gRes.MapElements.Count - 1 do
  
positive.code:       sprites.Free;
        units.Free;
        resTexts.Free;
        SList.Free;
      end;
    end, aOnDone, 'Export units anim');
  end;
  
negative.code:   // Asynchroniously export data
    GetOrCreateExportWorker.QueueWork(procedure
      var
        fullFolderPath, folderPath: string;
        U: TKMUnitType;
        A: TKMUnitActionType;
        anim: TKMAnimLoop;
        D: TKMDirection;
        R: TKMWareType;
        T: TKMUnitThought;
        i, ci:integer;
        used:array of Boolean;
        rxData: TRXData;
        spritePack: TKMSpritePack;
        sList: TStringList;
        folderCreated: Boolean;
        sprites: TKMResSprites;
        units: TKMResUnits;
        resTexts: TKMTextLibraryMulti;
  