anchor.diff:      Production := Min(CoalTheory, GoldOreTheory, GoldTheory);
       Consumption := 1;// + Byte(fSetup.Strong); //For now it's a static coef
       Balance := Production - Consumption;
  -    Text := Format('Gold balance: %.2f - %.2f = %.2f', [Production, Consumption, Balance]);
  +    fDemandGoldText := Format('Gold balance: %.2f - %.2f = %.2f', [Production, Consumption, Balance]);
     end;
   
     //Weaponry
  
positive.code:     Production: Single; //How much food do we produce
      Consumption: Single; //How much food do we use
      Balance: Single; //Resulting balance
      Text: string;
    end;
    TKMWareBalanceWeaponry = record
      SteelWeapon: record
  
negative.code:     WoodBalance     := Min(WoodcutTheory, SawmillTheory) - WOOD_DEMAND;
  
      Balance := Min(StoneBalance, WoodBalance);
      fDemandMaterialsText := Format('Materials balance: %.2f (Stone %.2f, Wood %.2f)', [Balance, StoneBalance, WoodBalance]);
    end;
  end;
  
  