Type TTudi=class(TObject)
  private
    FOwner:TComponent;
    FDWBH: String;
    procedure SetDWBH(const Value: String);
  protected
  public
    Property DWBH:String read FDWBH write SetDWBH; //定义属性
    constructor Create(OWner:TObject);overload;
    destructor Destroy;
    procedure Add;            {增加}
    procedure free    //??可否这么定义??
  end;yluo:TTudi;
如果我有程序反复执行以下代码
yluo:=Tyluo.Create(panel1);
yluo.Listyluo;
在没有yluo.Free;或yluo.destory;的情况下,程序会受什么影响?
而在一般情况下,我们都使用yluo.Free来释放,如果我想在free中加一些代码,则把free定义成一个过程?还是象destructor Destroy;那样,写成destructor free;