anchor.diff:  var
     Value: Integer;
   begin
  -  Value := gHands[AHandIndex].Stats.GetUnitLostQty(TUnitType(ATag));
  +  Value := gHands[AHandIndex].Stats.GetUnitLostQty(TKMUnitType(ATag));
     Result := IfThen(Value > 0, IntToStr(Value), '');
   end;
   
  
positive.code: var
    i: Integer;
    House, HouseProgress: TKMHouse;
    HouseType: THouseType;
  begin
    Result := inherited;
    if GetValue(AHandIndex, ATag) = '' then
      Exit;
  
    HouseType := THouseType(ATag);
    HouseProgress := nil;
    for i := 0 to gHands[AHandIndex].Houses.Count - 1 do
    begin
  
negative.code: var
    Value: Integer;
  begin
    Value := gHands[AHandIndex].Stats.GetHouseWip(TKMHouseType(ATag));
    Result := IfThen(Value > 0, '+' + IntToStr(Value), '');
  end;
  
  