anchor.diff:  
   function TKMUnitWarrior.FindEnemy: TKMUnit;
   var
  -  TestDir: TKMDirection;
  -  Range: Single;
  +  testDir: TKMDirection;
  +  range: Single;
   begin
     Result := nil; //No one to fight
     if not CanInterruptAction then exit;
  
positive.code: procedure TKMUnitWarrior.SyncLoad;
  begin
    inherited;
    fGroup := TKMUnitGroup(  gHands.GetGroupByUID( Cardinal(fGroup) )  );
    fOrderTargetUnit := TKMUnitWarrior(gHands.GetUnitByUID(cardinal(fOrderTargetUnit)));
    fOrderTargetHouse := gHands.GetHouseByUID(cardinal(fOrderTargetHouse));
  
negative.code:                     GetEnumName(TypeInfo(TKMWarriorOrder), Integer(fNextOrder)), aSeparator,
                      BoolToStr(fNextOrderForced, True), aSeparator,
                      TypeToString(fOrderLoc), aSeparator,
                      unitStr, aSeparator,
                      houseStr, aSeparator,
                      groupStr, aSeparator]);
  end;
  
  
  