anchor.diff:        animData := animData + ',';
       animData := animData+#13#10;
     end;
  -  animData := animData + ');';
  +  animData := animData + ');';}
   
   
     Memo1.Text := animData;
  
positive.code:   end;
    animData := animData + #13#10 + ');';
  
    animData := animData + #13#10 + #13#10;
    animData := animData + 'CARRY_INTERP_LOOKUP: array[TKMWareType, TKMDirection] of Integer = ('+#13#10;
  
    for ware := Low(TKMWareType) to High(TKMWareType) do
  
negative.code:       for dir := Low(TKMDirection) to High(TKMDirection) do
        begin
          try
            animStr := DoInterpUnit(u, act, dir, picOffset, not chkUnitActions.Checked);
          except
            on E: Exception do
            begin
              memoErrors.Text := memoErrors.Text + TRttiEnumerationType.GetName(u) + ' - ' + UNIT_ACT_STR[act] + ' - ' + TRttiEnumerationType.GetName(dir) + ' - ' + E.Message + #13#10;
              animStr := INVALID_INTERP;
            end;
          end;
  
          animData := animData + '('+animStr+')';
  
          if dir <> High(TKMDirection) then
            animData := animData + ',';
  