声明一个水果类TFruit ，私有成员为Fname(水果名，string类型)，Fcolor(颜色,Tcolor类型)，Ftaste(味道,Ttaste类型)，公共属性为color，从Fcolor里获取属性值，通过Setcolor方法设置属性值，默认值为white，公共方法有Infor过程，没有参数。
type
Tfruit=class
private
FName:string;
Fcolor:TColor;
FTaste:Ttaste;
// function setcolor:Tcolor;
public
property color:Tcolor read fcolor write setcolor default white;
procedure infor;
end;
// function setcolor:Tcolor;这一段做什么用？