anchor.diff:  
     TKMResWares = class
     private
  -    fList: array [TKMWareType] of TKMWare;
  +    fList: array [TKMWareType] of TKMWareSpec;
       procedure CalculateCostsTable;
  -    function GetWare(aIndex: TKMWareType): TKMWare;
  +    function GetWare(aIndex: TKMWareType): TKMWareSpec;
     public
       constructor Create;
       destructor Destroy; override;
  -    property Wares[aIndex: TKMWareType]: TKMWare read GetWare; default;
  +    property Wares[aIndex: TKMWareType]: TKMWareSpec read GetWare; default;
       procedure ExportCostsTable(const aFilename: string);
   
       procedure ResetToDefaults;
  
positive.code: end;
  
  
  function TKMResWares.GetWare(aIndex: TKMWareType): TKMWare;
  begin
    Result := fList[aIndex];
  end;
  
negative.code: end;
  
  
  function TKMWareSpec.GetTitle: UnicodeString;
  begin
    if GetTextID <> -1 then
      Result := gResTexts[GetTextID]
  