anchor.diff:        animData := animData + ',';
       animData := animData+' // '+TRttiEnumerationType.GetName(ware)+#13#10;
     end;
  -  animData := animData + #13#10 + ');';
  +  animData := animData + ');';
   
     animData := animData + #13#10 + #13#10;
  -  animData := animData + 'THOUGHT_INTERP_LOOKUP: array[TKMUnitThought] of Integer = ('+#13#10;
  +  animData := animData + 'THOUGHT_INTERP_LOOKUP: array[TKMUnitThought] of Integer = ('+#13#10+'  ';
   
     for th := Low(TKMUnitThought) to High(TKMUnitThought) do
     begin
  -    animData := animData + '  ';
       try
         animPicOffset := DoInterpUnitThought(th, picOffset, not chkUnitThoughts.Checked);
       except
  
positive.code:   else
      bkgRGB := $000000;
  
    DoInterp(rxUnits, A, bkgRGB, aPicOffset, aDryRun);
  end;
  
  
  function TForm1.DoInterpSerfCarry(aWare: TKMWareType; aDir: TKMDirection; var aPicOffset: Integer; aDryRun: Boolean): Integer;
  var
    A: TKMAnimLoop;
    bkgRGB: Cardinal;
  begin
    if aDir = dirNA then
      Exit(-1);
  
negative.code: var
    A: TKMAnimLoop;
    I: Integer;
  begin
    if aThought = thNone then
      Exit(-1);
  