anchor.diff:      procedure SetID(AValue: TModId);
       procedure SetName(AValue: string);
       procedure SetPath(AValue: String);
  +    procedure SetVersion(AValue: string);
     public
       constructor Create;
       destructor Destroy; override;
  
positive.code: begin
    if FPath = AValue then Exit;
    FPath := AValue;
  end;
  
  
  
negative.code:   end;
  end;
  
  procedure TModConfig.Assign(AOther: TModConfig);
  begin
    //TODO: TModConfig.Assign
  end;
  
  procedure TModConfig.SetDescription(AValue: string);
  begin
    if FDescription = AValue then Exit;
  