anchor.diff:  end;
   
   
  -function TKMWare.GetTitle: UnicodeString;
  +function TKMWareSpec.GetTitle: UnicodeString;
   begin
     if GetTextID <> -1 then
       Result := gResTexts[GetTextID]
  
positive.code:   Classes, SysUtils, KM_CommonClasses,
    KM_ResTypes;
  
    //Collection of types and arrays for Wares usage
  
  type
    TKMWare = class
    private
      fType: TKMWareType;
      fMarketPrice: Single;
  
negative.code:   Math, KM_ResTexts;
  
  
  { TKMWareSpec }
  constructor TKMWareSpec.Create(aType: TKMWareType);
  begin
    inherited Create;
  
  