anchor.diff:      finally
         sprites.ClearTemp;
         sprites.Free;
  -      SList.Free;
  +      sList.Free;
       end;
     end, aOnDone, 'Export tree anim');
   end;
  
positive.code:       sprites.Free;
        units.Free;
        resTexts.Free;
        SList.Free;
      end;
    end, aOnDone, 'Export units anim');
  end;
  
negative.code:           end;
          end;
  
        fullFolderPath := folderPath + 'Thoughts' + PathDelim;
        ForceDirectories(fullFolderPath);
        for T := thEat to High(TKMUnitThought) do
          for I := THOUGHT_BOUNDS[T,1] to  THOUGHT_BOUNDS[T,2] do
          begin
            spritePack.ExportFullImageData(fullFolderPath, I+1, sList);
            used[I+1] := True;
          end;
  
        if not aExportUnused then Exit;
  
        fullFolderPath := folderPath + '_Unused' + PathDelim;
        ForceDirectories(fullFolderPath);
  
        for ci := 1 to length(used)-1 do
          if not used[ci] then
          begin
            spritePack.ExportFullImageData(fullFolderPath, ci, sList);
            // Stop export if async thread is terminated by application
            if TThread.CheckTerminated then
              Exit;
  