又是一个不眠夜

老大，看了你的书，我写代码有问题了啊！！解决一下啊！谢谢 定义了基类TMissoner 子类:TCloseMisson,TReStartMisson... 声明一个变量 var Temp:TMissoner; 在窗体1个按忸上添加事件创建对象 Temp:=TCloseMisson.Create; 另一个 按忸为销毁对象 if Temp<>nil then Temp.Free 我这样写是想按一个按钮创建对象后可以按另一个按忸销毁对象， 为避免没有创建对象就销毁对象，用if Temp<>nil then 来判断 是否创建了对象，可是问题来了，连续按销毁对象的按忸确实不会 出现问题，可是一旦创建了对象后，第一次按销毁对象能正确销毁 对象，再按就报错了，奇怪啊，奇怪，难道if Temp<>nil then没用 了？

老大，我把你那本电子版全部打印可还嫌不够，又去买了一本啊，看在我的诚意上指点一下吧

是否改成FreeAndNIl(Temp)即可呢?

可以了，谢谢楼上的大哥！ FreeAndNil是否就是销毁对象并令其为Nil的意思呢？

是的。 你的代码的问题在于，首先要在程序初始化的时候把Temp设置为nil：Temp := nil; 因为Var的变量是不会自动初始化为nil的。

to申旻老同学：我想我是来错地方了。有看没有懂。 昏倒ing。