anchor.diff:    KMDeleteFolderContent(interpSpritesDir);
   
     AllBlank := True;
  -  A := fResUnits[aUT].UnitAnim[aAction,aDir];
     CanvasSize := GetMinCanvasSize(A, RT);
     for Step := 1 to A.Count do
     begin
  
positive.code:   KMDeleteFolder(dirShad);
    KMDeleteFolder(dirTeam);
  
    MakeImagesInterpUnit(aUt, aAction, aDir, dirBase, ietBase);
    MakeImagesInterpUnit(aUt, aAction, aDir, dirShad, ietShadows);
    MakeImagesInterpUnit(aUt, aAction, aDir, dirTeam, ietTeamMask);
  
    StrList := TStringList.Create;
  
  
negative.code: end;
  
  
  procedure TForm1.MakeInterpImages(RT: TRXType; A: TKMAnimLoop; aBaseDir: string; aExportType: TInterpExportType);
  var
    origSpritesDir, interpSpritesDir: string;
    Step, SpriteID, CanvasSize: Integer;
    StartupInfo: TStartupInfo;
    ProcessInfo: TProcessInformation;
    NeedAlpha, AllBlank, Worked: Boolean;
  begin
    if fSprites[RT] = nil then
    begin
      fSprites[RT] := TKMSpritePackEdit.Create(RT, fPalettes);
  