Delphi中利用对象的常用属性制作动画