巧用TAG属性保存对象的指针

指针的数据类型是整型，一个指针就是一个整型的数值。

所以凡整型的变量（这个整型的变量可以是声明在INI文件中，也可以是声明在函数中的）也好，对象的整型的属性也好，都可以用来存储一个指针。

但对象往往没有多余的整型属性，踏破铁鞋无觅处，得来全不费功夫，TAG属性就是整型的，可以用它来存放指针。

goods := TGoods.Create(Button);
goods.goodsId := goodsId;
goods.goodsName := goodsName;
goods.price := price;
Button.Tag := THandle(goods);

TGoods(TcxButton(Sender).Tag).buyNum