delphi destructor 析构函数

用来销毁类的实例（对象），并且销毁对象中的其他数据结构。通常情况下，一个类只有一个析构方法destroy。
这个析构方法通常不带任何参数，因为它就是关闭和销毁。
    析构方法的语法格式如下：
        type 类名 = class(基类)
          destructor 析构方法名；
        end;
    实现析构方法时按照如下语法：
    destroy 类名.析构方法名；
析构方法destroy在实现时需要注意三点：
1.考虑到一个类的析构方法可以不止一个，类声明时建议覆盖继承下来的析构方法，并不在声明其他的析构方法：
  destructor destroy;override;
2.实现析构方法时按照如下格式，先执行本身的命令，最后继承祖先类的析构方法：
  destructor TMyClass.destroy;
  begin
    .....{先执行命令销毁创建的对象和关闭工作}

    inherited destroy;{最后继承祖先类的析构方法}
  end;
3.不要在程序中调用destroy来销毁对象，应该用free，free在销毁之前会检测对象是否为nil，当不为nil的时候才
   销毁对象。