anchor.diff:    TKMInterpolation = array[1..30, 0..7] of Integer;
   var
     I, picOffset, startPos: Integer;
  -  animStr: string;
     dir: TKMDirection;
     act: TKMUnitActionType;
     u: TKMUnitType;
  
positive.code:         except
            on E: Exception do
            begin
              memoErrors.Text := memoErrors.Text + TRttiEnumerationType.GetName(h) + ' - ' + TRttiEnumerationType.GetName(hAct) + ' - ' + E.Message + #13#10;
            end;
          end;
        end;
  
negative.code: end;
  
  
  procedure TForm1.DoInterpBeast(beastHouse, beast, beastAge: Integer; var aPicOffset: Integer; aDryRun: Boolean);
  var
    A: TKMAnimLoop;
  const
  