anchor.diff:      finally
         sprites.ClearTemp;
         sprites.Free;
  -      SList.Free;
  +      sList.Free;
       end;
     end, aOnDone, 'Export tree anim');
   end;
  
positive.code:           end;
          end;
  
        FullFolder := Folder + 'Thoughts' + PathDelim;
        ForceDirectories(FullFolder);
        for T := thEat to High(TKMUnitThought) do
          for I := THOUGHT_BOUNDS[T,1] to  THOUGHT_BOUNDS[T,2] do
          begin
            SpritePack.ExportFullImageData(FullFolder, I+1, SList);
            Used[I+1] := True;
          end;
  
        if not aExportUnused then Exit;
  
        FullFolder := Folder + '_Unused' + PathDelim;
        ForceDirectories(FullFolder);
  
        for ci := 1 to length(Used)-1 do
          if not Used[ci] then
          begin
            SpritePack.ExportFullImageData(FullFolder, ci, SList);
            // Stop export if async thread is terminated by application
            if TThread.CheckTerminated then
              Exit;
  
negative.code:   begin
      sprites := TKMResSprites.Create(nil, nil, true);
      sprites.LoadSprites(rxHouses, False); //BMP can't show alpha shadows anyways
      spritePack := sprites[rxHouses];
  
      folderPath := ExeDir + 'Export' + PathDelim + 'HouseAnim' + PathDelim;
      ForceDirectories(folderPath);
  
      SList := TStringList.Create;
      houses := TKMResHouses.Create;
  